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ABSTRACT 



This thesis exarrines the use of an inexpensive 
cofTiTercial mi cro coirputer for tne preparation of Naval 
Reporting Structure Operational Reports. These highly 
formatted reports provide critical unit information used by 
the National Command Authority and Joint Chiefs of Staff in 
assessing the nation's defense posture. Since these reports 
are prc cessed ty computer, correct formatting and data entry 
are esiiential to preserve the timeliness and accuracy of the 
information. The requirements of a Report Origination System 
are investigated from the perspective of the system 
operator, the message drafter and the message releasing 
authority. Interfaces are developed which provide for system 
application to different hardware configurations. A subset 
of the Ada language is used to allow structured programming 
and data abstraction techniques, elements of the Unit Status 
and Identity Report (UNITRI?) are implemented using this 
method . 
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lACKliRCUND 

The need for current «md correct coirmund and control 
inforrration within the irillrary has long been recognized. 
There will most lilcely never be a time when the services 
possess assets that are considered in excess of those re- 
quired to perform the assigned missions. With the advance of 
technology over the past forty years we have seen a 
continuing decrease in the time required to act or react to 
a given situation. The advent of the computer provided both 
the cause and the means to reduce decision making time. In 
these days when "rapid deployment" has become a keyword, the 
ability of the higher authority to quickly and precisely 
Judge the disposition and st<atu'5 of forces has become 
paramount. 

A. TEI FRCBLir'- 

To obtain such an appraisal of forces, hundreds of bits 
of information (normally submitted via message reports) 
relating to location, personnel manning and training, equip- 
ment status and overall readiness condition, for many 
individual units must be examined. 

At the transmitting end we have the originator who must 
sift through volumes of Instructions to determine WHAT is 
required to be reported, WEEN it is required to be reported 
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and HOW it is to be reported. All too often the drafting 
process reverts to examining past reports for tne general 
form and content. -Thus errors tend to perpetuate themselves. 

At the receiving end, the World Wide f^ilJtary Command 
and Control System (WWf^CCS ) supports the National Command 
Authority end the Joint Chiefs of Staff by processing, 
correlating and presenting the information. The computers on 
which the WWyCCS is based, for all their speed and 

precision, can only respond to that information for which 
they are programmed. Although that programming may be 
arbitrarily complex (to include such items as look-up 
tables, alternative spellings/formats and sophisticated 

deduction algorithms) it is still finite and cannot possibly 
cover all situations. When the computer cannot deterniine the 
logical content of a received report it must queue that 
report, awaiting a human operator's intervention and 

subsequent correct icn. The operator, v.nc'n manually 
processing the report, y.AJ be able to deduce what was meant 
to be reported, or ray be forced to guess. It is not 
reasonable to assume that the operator will always correctly 
determine what was intended by an originating unit. 

Such is the problem : The computer receiving the 

information reo.uires correct format and content in order to 
provide accurate and timely information; the human sending 
the information does not easily communicate in computer 
terms, tending more towards a free format, uncoded style. 
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5. lABLY IIFORTS 

It should be clear that the computer is both the prota- 
gonist and the antagonist in this situation. It CAN provide 
current and correct Information to the decision maiier IF it 
receives the correct information in the correct format in 
the first place. However, if the information is not proper 
in format or content, correcting it will at best create a 
time late problem and at worst result in contamination of 
the WWf^CCS database with incorrect interpetations . 
Concluding that computerized information processing was the 
best means of satisfying the stringent time requirements 
considering the voluminous data, several approaches were 
attempted. All depended on the originator sending accurate, 
timely, properly formatted information. 

1. Composite Report XCOMPRSP) 

A Composite Reporting System (COMPREP) was designed 
and tested by Commander First Fleet in 1971. This was an 
attempt to reduce the number of required operational reports 
by substituting a unified report formatted for automatic 
data processing. With the limited resources available the 
system was not sufficiently developed to prove its worth as 
an effective management tool. The main deficiency proved to 
be the coded format which made the report difficult for even 
the originator to decipher once the report had been 
prepared . 
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2. X/C 13 Increrrent I ICCMPHEP) 

Thi s- study, concluded in 1975, set as its goal the 
corrtination of the Naval Status of Forces Report 

( NAVFORS TAT ) , Movement Report (MOVIREP), Casualty Report 
(CASEEP) and Errergency Military Standard Requestioning and 
Issue Procedures (MILSTRIP) into a single reporting system. 
A separate reporting structure and training for its use were 
developed. This system was not recommended because it did 
not totally integrate required operational reports, the 
messages were not easily drafted and the final message was 
not easily understood by the originator. The test and 
evaluation (T & E) report concluded that it was basically a 
rehash of the the enlisting system with little genuine 
improvement. [Ref. Ij 

3. Composite Qperalipnj Reporting System iC0RS_) 
Reflecting on the conclusions of the COMPREP T & E 

report, the goals of COMPREP were re-evaluated. This effort, 



designated 


the Composite 


Operations 


Report ing 


System 


, wa s 


conducted 


between 


the 


Office of 


the Chief 


of 


Nava 1 


Operations 


(OPNAV) 


CORS 


Steering Committee and 


the 


Naval 



Electronics Systems Command (NAVILSX). The goals of the CORS 
wer e : 

— to provide alternatives for a reporting system which 
would provide timely and accurate data to required 
levels of command 



14 



— to minimize reporting requirements of indlvicual 
units ty com'bining Employment Schedule, (Movement 
Reports, Casualty Reports and Naval Status of forces 
Repo rt s 

• — to provide significant improvements in the read- 

dtility, draf tdhil i ty <and communications systems 

impact . 

Of twelve alternatives proposed, the final recommendation 
was to develop a system in which the originator would 
manually draft simple, readable, formatted messages using 
predefined forms and decision logic trees. This alternative 
was judged most feasible due to its ability to be 
implemented early. The benefit of a computer based Report 
Criginatioii System (RCS ) in the drafting of the messages was 
realized but not recommended due to economic constraints. 
Other alternatives rejected were strict narrative reports 
with manual insertion into the database by operators at the 
receiving sites and limited narrative reports with a special 
front end text processor at the receiving site. These 
alternatives could not reasonably meet schedule, technology 
or economic contraints at that time. [Ref. 2] 

-• System iROS} 

The concept of a computer based system to support 
the originator in the preparation of formatted reports 
had been explored during the GOES effort. Such a system was 
conceived to have the following properties/capabilities: 
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— te ?r i crocorrijut er cased 

— be ft enu driven 

— provide a screen display similar in formal lo the 
required report 

— perform error caeckiaj; in such areas as proper alpha- 
numeric characters, field length and logical content, 

— provide a hard copy output of the required report in 
acceptable message format. 

In Eecember 1976 Eolyoak [Eef. oj of the Naval Post- 
graduate School issued a thesis regarding the implementation 
of the PCS for a NAVFOR>STAT on a microcomputer system. This 
EOS was coded in Intel Corporation's PL/M systems language 
for an S2S2 based Inte3.1ec - 8 mainframe with 16K of main 
memory. Subsequently, in June 1977, Godley [Eef. 4] 
completed a follcw-on thesis based on the same hardware but 
expanded to include general formatted reports. 

C. RECENT EEVEICPMENTS 

Following the COPS report, several different areas were 
Investigated to gather the information necessary to revamp 
the operational reporting system. These efforts concentrated 
on defining the desired data, conducting a study to 
determine the source of errors in the current system, 
conducting a EOS prototype development and test and an 
examination of systems available to the fleet. 
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B§P0Ili5£ Sjruclure iNRSj 

As previously stated, one of the goals of the CORS 
was to develop an operations reporting systerr which was 
unified, easy to understand in both concept and output and 
which provided a sirrple rressage drafting capability. 
Consequently, the Chief of Naval Operations, OP-643, was 
designated as the central point of contact and approval 
authority fcr rressage text formatting and date element issue 
and activities within the Eepartment of the Navy. Intense 
effort resulted in the February 19S?. promulgation of the 
proposed OPNAVINST 3503.x series: Navy Reporting Structure 

Operational Reports [Ref. 5]. This seven volume instruction 
consists of the following: 



OPNAVINST 3503.1 
OPNAVINST 3503.2 
OPNAVINST 3503.3 
OPNAVINST 3503.4 
OPNAVINST 3503.5 

OPNAVINST 3503.6 
OPNAVINST 3503.7 



NRS - General Instructions 
NRS - Staff Report (STAFFRjIP) 

NRS - Employment Schedule Jieport (EMSRIP) 
NRS - Casualty Report ^CASHEP) 

NRS - Unit Status and Identity Report 
(UN I TRIP) 

NRS - Surface Movement Report (SURFMOVE) 
NRS - Submarine Movement Report (SUBMOVE) 



OPNAVINST 3503.1 summarizes the NRS operational reports, 
sets responsibilities of cognizant commands, details the 
iranagement of the program and establishes clear guidelines 
relating to formatting procedures and message preparation. 
All other instructions in the series relate to specific 
reports and provide reporting requirements, data set and 
field descriptions, look up tables and sample worksheets for 
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preparation of certain report items. Ntirnerous exarples cr: 
provide-} throughout the instructions. The influence c: hucc; 



readah 


ility 


is seen in the c 


are 


with whicn 


•1 ft o C 


r 

1 


descri 


p to rs 


were sele :ted . 


The 


influence 


of . 


0 iT 3 


proces 


sin? 


is seen in the 


high 


Qcgree of 


: 0 rria c 



required 



2. 2rrcr Studi" 

Concurrently witn the fHS deve 1 cpn-en t . NAVhh,-;-: 
conducted a study to determine the source of errors 'within 
current forratted reports sent to an error oueue ar.l tc" 
result of su^h errors or. th= timeliness of irfornaticn 



er.terec into 


the WWI^CCS 


da tabase [Hef . 


- 1:' c. 


rCVZ?.Z?5 UKI 


TrZZs and 


?.A I h' ZCZMs were 


examined and 


catalogued 'ey n 


umher / type 


errors, type unit an 


•c tire late tc 


the da tc has e. 


7Z percent 


cf all l••!07?Z?s. 61 


uercent cf al' 



UriT?~?5 and 46 uercer.t of all HA IMJC wer 



! u n c to 0 e i r. 



i- 1. - - ~ . 



^ i c r. '- 



error, ^'c CAS?Z? error analysis vas made, 
a crea 1-cdc wn of the average errors These averages reoresonc 
76.1 percent of the total errors disccverei. lh“ r';=an tire 
delay from transmission to entry into the data oaee for c, 
message sent to the error queue is shown ir ta--lf 1-2. 

2* Casualty Pepcrt _CAS?.SPj Test 

Based on the results of the error s cudy the 



decision was made to develop a prototype BC3 system for tne 
'■?.S CA5FZ? ^ then pending release as NW? -evision A 
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Table 1-1. Forrratted t^essage Irror Study Analysis 



DATA CCNTZNT ERRORS 



PERCENT OF ERRORS 



Character Type 


2.1 


Calculations/Associations 


14.3 


Message Identification 


4.7 


Value Mismatch 


22. e 


Date-Time Group 


3.8 


Position 


1.2 


MAT/STRUCTURS ERRRORS 


Descriptor 


9. 9 


Sequence 


5.7 


Missing Mandatory 


5.4 


Logical Relationships 


V 1 . 8 


Size 


3.9 


Duplicates 


0.7 



Table 1-2. Average Time Delay for Report Messages in Error 



TYPE MESSAGE 


TOTAL TIME 


DELAY 


MCVHEP 


3 


hrs 


54 


min 


UNITRE? 


3 


hrs 


45 


mi n 


EAINFOBM 


7 


hrs 


44 


min 


CASREP 


33 


hrs 


22 


min 
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Apperdiz 3). The contractor, Sterling Data Applications 
Incorporated of Sterling VA., progratiitred the ROS in the 
SASIC language on an SLS 420 rri cr ocorrput er systerr. In 
addition to providing a hard copy rressage output, the systerr 
also prepared a punched paper tape corrpatible with 
corroninicati ons equiprrent aboard ship. This prevented typing 
errors during ir.essage center preparations for transrr.i ital . 
The systerr was deployed aboard the USS CALIFORNIA (CGN-36) 
frorr 1 April 1981 through 3 June 1981 for a ROS Prototype 
Development Test. Unfortunately NWF 7 Rev A, App. B was not 
released in tirre for the test which necessitated review 
under the then current and proposed instructions. Dual 
.ressage logs were rraintained for the 81 rressages processed 
under the existing and proposed systems, irror checking was 
accorrplished after deployrrent by comparing these logs and 
conducting an error queue analysis for CASRIPs from the 
CALIFORNIA. 

The test noted that commercial hardware could function 
successfully in the shipboard environment. Only one hardware 
failure was noted - a read/write disk head disengagement 
during sea state 4 (10-15 degrees roll, 5-7 degrees pitch, 
4-6 foot waves) operations. This was corrected by 
positioning the microcomputer at an angle to the ships roll 
axis. Four presumed software failures occured on the afloat 
system. However none of these failures could be recreated at 
the test site ashore. The report implied that the afloat 



20 



failures were due to operator error. One software failure 
occured at the shore site and was corrected. [Ref. 7] 

Approach 

The decision to implement OFNAVINST 3503.x, Naval 
Reporting Structure Operation Reports, has been delayed 
pending replacement or recoding of the Honeywell 6000 
computers on which the WWf^CCS resides (projected 1987). In 
the meantime the Navy had decided on the Xerox 860 Word 
Processor as the standard word processor approved for 
service purchase. Current efforts are aimed at providing the 
fleet a flll-in-the-b Lank format capability for CASRIF and 
IMSIIE reports as soon as possible. As a f ill-in-the-bl anic 
capability does not ccrpletely meet the full requirements of 
a ROS system (no data cross checking, error notification, 
etc.). Sterling Rata Applications is examining the 
feasibility of installing a C?/h board in the Xerox 860 tc 
convert it to a true microcomputer. Initial indications are 
that this is a possible, though costly alternative. 
Additionally, SDA has recoded the prototype ROS CASRZP from 
the BASIC language to the COBOL language in compliance with 
DOE standards. 

The purpose of the ROS is clear - overcome the 
boundry of the man-computer interface oy providing the the 
men at sea the tools to easily, rapidly and accurately; 
draft, prepare, review and transmit formatted reports to 

higher authority ashore. 
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Considerable effort has gone into proving that the 
concept is viable and effective, \vith the program restricted 
by current budgetary constraints and actual implementation 
dependent on the installation of the nevf WW^CCS computers or 
recoding of the current system to accept the new reports, it 
was decided to examine the BOS in a future context. The 
recent increase in the capabilities of commercial 
microcomputer equipment and software tools, and the 
concurrent decrease in cost, appears to make the planned 
implementation of the ROS concept all tae more desirable. 
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II- 5MIGN QlJiCTiV|S 



The 


purpose of 


the 


POS 


is 


to 


reduce 


er ro rs 


i n 


operational reports 


submitted 


from 


the 


unit 


level . 


The 


concept 


behind the 


PCS 


is to 


provide 


the or 


igin at 0 !• 


a 



tricrocorrputer ‘based systerr which will simplify the report 
generation cycle. The proposed benefits of the RCS are a 
greater confidence in the accuracy of the data retrieved 
from the WWf^CCS database by higher corrrarid; quicker 
insertion of update information into the dataoase; reduction 
of manpower required to correct erroneous reports at the 
VWb'CCS sites; a lowered administrative ‘ourlen on the 
originating unit. Three primary areas should ce addressed 
when considering the design of such a system: the user, the 

hardware on which the systerr is to be based and tne software 
tools with which the system is to be implemented. 

A. DS2P. CCNSiriHATlONS 

In any report generation cycle several 'user' 
distinctions may be made (e.g. clerk/typi st , drafter, 
releaser). lach 'user' has particular requirements from any 
system providing assistance in report generation. 

1- System Cperator 

At the most fundamental level, the system operator 
(i.e. the clerk/typist) is responsible for preparation of 



the final report for transmission ana the maintenance of 
historical files. His responsitilities would entail data 
entry, data storage and retrieval, and an understanding of 
basic system capahili ties. System operator requirements and 
questions would entail: 

— How easy is the system to learn and operate? 

— Are frequent references to a user's manual required? 

— Eow 'crash' resi stan t/reliahle is the system? 

— What is the is the initialization procedure? 

— Eow is data entry accomplished? 

— What is the source of the data to he entered? 

— What is the input error correction procedure? 

— Does the system provide a properly formatted output? 

— Toes the system maintain past information? If so, is 
that information easy to access? 

— Does the system make the Job easier? 

2 . 

The report drafter must determine when conditions 
require a report to he submitted. Pertinent information must 
he gathered, usually from several different sources - one of 
which may he previously reported data. The proper format for 
that information is normally decided hy the governing 
instruction. The drafter may he only minimally concerned 
with the operation of the system or may desire the 
capability to generate a report in real-time (i.e. without 
the assistance of the system operator and without a drafting 
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document). Trafter requirements and questions would be 
slightly different: 

— How closely does the system correlate to the 

instruction that requires the report? 

— Toes the system provide detailed drafting information 
(data fields, field lengths, sources of Information 
and requirements for submission)? 

— Toes the system provide a means of presenting 
all information as currently reported? 

— Can the system 'back-up' to any stage in the 

reporting cycle and present information that was 
current as of that time (e.g. when required to verify 
information as requested by higher authority)? 

— How easy is it to learn the system operator's job? 

— Is there sufficient information available, on line at 
the terminal, to assist in the real time preparation 
of a report? 

— Toes the system make the job simpler/easier? 

3. Seleaser 

Ihe releaser is not concerned with the operation of 
the system, tut primarily directs his attention to the 
requirements to submit the report, the content of what is 
being reported and the ability to understand the report with 
minimal reference to the governing instruction. Releaser 
requirements : 

— Certainty that the report conforms to the required 
format. 

— A simple guide which is a decoded version of the 
report, providing a logical grouping of information 
and what that information represents. 
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B. DESIGN 5ZQTJIRIMENTS 



With the three separate 'users' to consider and the 
variety of their requirements it is clear that a three 
tiered approach is necessary to provide the individual user 
the required features. 

The system operator's requirements tend to center 
about the microcomputer system and the RCS program. To 
satisy these requirements: 

— Provide a detailed User's f^anual covering such areas 
as installation procedures, general operation, 
displays, etc. 

— Logically group data sets together in screen displays 
which are annotated in plain language with adequate 
on screen prompts. The screen displays should close- 
ly follow any drafting document. 

— The system should be user f riendly/fault tolerant. 
There should be no abnormal terminations. Any 
termination requires user notification and procedures 
to be followed to resume normal operation. 

— Incorrect entries should trigger clear, concise error 
messages which inform, the user of the error and, 
when appropriate, the proper action to be taken. 

” Limit keyboard input to only those characters 

acceptable for Optical Character Header (OCH) and 
BADICT message transmission codes. All illegal 
keyboard inputs should be rejected with notification 
to the user. 

— Data entry should be menu driven in cases where only 
distinct choices are possible. 

— Where the user must enter data into fields the input 
should be limited to the allowed field length. 

— If the entry is obtained from a table, the entry 
should be cross checked against that table to ensure 
its validity. 
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— Fields of fixed formats such as date-time groups, 
latititude-longitude positions should appear as a 
template over which the operator enters the proper 
data. All such fields (and associated checksums) 
should he verified. 

— Numeric fields should oe verified and range checked. 

— Sum/totai numeric fields should he cross checked 
against the sum of the component fields. 

— Mutually exclusive items should he treated as such 
within the system arid displays. 

— Input of unit-type specific items should only 
he allowed for the unit-types authorized (e.g. if 
only a ship can report some item, an air unit would 
not he allowed to report it). 

— The system should provide a two format output option; 
EI-173 (OCR) and Standard Naval Message Format as 
received during fleet broadcasts. 

, 2 . Irafter 

The drafter is oovlously concerned with assistance 
in the preparation of the report. To provide this service 
the system should: 

— Prepare a hardcopy rough drafting form. Items on the 
form should he keyed to the display screens presented 
to the system operator and therefore he logically 
grouped. The drafting for.m should closely follow the 
instruction requiring the report. Information 

required on the form will he: 

— the data set name, associated field names and <3 
fill in area of the appropriate field width 

— source of the information 

— meaning associated with each field if not self 
explanatory 

— conditions for submission of the data set 

— all currently reported information (in message 
format) 
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— Prepare the proper format li:ternally. The drafter 
should only provide the necessary information to the 
system operator for entry into the PCS. 

Additionally, there is the constraint of the drafter 
operating the system for real-time report generation. Por 
this requirement the drafter will require ail the assistance 
of the system operator plus: 

— An additional on line help facility vhich contains 
information normally availatle only in the draft 
document. 

3. Seleaser 

With automatic formatting, the releaser need only 
be concerned with the content of the report. Zxpcncing the 
rough drafting document to include explanations of coded 
items and allowing an option for preparation of this form 
based on the information to be reported should satisfy this 
requi remen t . 

C, EAP.BWAPI CCNSiriP.ATICNS 

As the HOS should only oe considered a topi Ir. the 
preparation of reports, it should be implemented on as 
economical a microcomputer system as possible. It should not 
require a system that is lyiL-SFSC compatible (such as the 
UTI-20). Off the shelf commercial equipment appears the best 
approach. Unfortunately the Navy has not standardized 
purchase procedures/requirements for a general purpose 
commercial microcomputer as it has for word processors. The 
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proliferation of commercial models thoughout the fleet is 
well known - TPS-80S , APPLES and EPs to name several. 

The most common eight-tit microprocessor architecture in 
use today is that of the Z-S0/808e group. To have the 
greatest commonality with this group it WdS determined that 
the microcomputer should be Z-80 based. Additionally it was 
desired to have dual single-sided single-density disk drives 
to provide a minimum of one-half megabyte of storage. This 
would allow the program executable code to be contained on 
one disk while data storage files for past reports could be 
filed on the other disk. Terminal/keyboard groups are as 
widely varied as microcomputer systems if not more so. The 
requirement was for a full ASCII keyboard with a minimum 23 
line by 79 column terminal display. Other differences 
between terminals can normally be accomodated by a softv/are 
Interface as long as the electrical connection is via the 
industry standard RS-232. It was desired that the printer be 
of the page feed variety in order to develop the necessary 
procedures for the alignment and individual paging 
mechanisms as would be used in preparing an OCR Joint 
Messageform (PE-173). 

On the basis of availibility, an ACS 6000-1 Altos 
Computer System and a BATAMEEIA ELITE 2500 keyboard and 
terminal were selected. A page printer, however, was not 
readily available and a Teletype Corporation Model 40 
continuous line printer was substituted. 




?ow. 















E. SOITWABE CCNSIDERATICNS 



Since the most common operating system for commercial 
microcomputers is currently Eigital Research's Control 
Program for Microprocessors (CP/M), this system was included 
whenever an operating system was required. Additionally many 
of the language compilers examined for the system required 
CP/M. 

As it was desired to code the system in a structured 
language which allowed data abstraction (looking forward to 
a full system development in the proposed Eepartment of 
Defense standard language AEA [Ref. 8]), several variants of 
PASCAL were examined including UCSE Pascal, JHT Pascal, 
SORCIM Pascal and MP+ Pascal digital Research). Initial 
programming began with DCSE Pascal but was abandoned when it 
was discovered that the available version did not possess 
the facilities for separate module compilation. Coding 
resumed with JRT Pascal but was quickly abandoned for lack 
of helpful debugging diagnostics. The examination of SORCIM 
or MP+ as an alternative was interrupted by the reddy 
availability of JANUS/AEA by RR Software, Madison, WI . [Ref. 
Sj . JANUS/ADA is a limited subset of the proposed standard 
but met the requirements for a structured language that 
allowed data abstraction, required CP/M and ran on a Z-60 
based system. The limitations imposed by the subset will be 
refered to as they applied during the implementation of the 
system (Chapter IV). 
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III. SYSTZM C7Z?VIZW 



Tc support the requirements discussed in Chapter II 
several diifferent computer systems levels must he acciressed. 
At the most elementary level, software interfaces to 
terminals and printers are required. As the size of the 
prcfr.-.m expanded and it became necessary to physically 
separate the program into modules a means of rrcdule 
ccmmin icaticn was required. The miajority of tne system is 
ccnr'^rnei with the capacilities which the prccziam provides 
and how the report information is ercuped, oispla/ed and 
maintained. Th® NP.S UMITRZ? ^Ref. was selected as the 

demons tra t ion vehicle. Figure c-1 details the system 

<4 ~ *•.. A* 



A. LCdICAL IhRCRf'ATICK CROUP I^G 

Rased on the requirements of the three users ■’iscussei 
in Chapter II, cne of the driving oesi^rn factors for the PCS 
UhlTRZ? is a logical sroupinc: of inform.aticn - loth in the 
craftins document and screen displays. Upon exar ina t ion of 
the UMTRZr instruction it was cosenved that eight areas, 



called 

logical 



situations, are deliniatei whit'h provice 
grouping [Ref. 12; para. 1.5a]; 



(1) Personnel Status 

'2) Administrative Status 

(3) Unit Combat Readiness Assessment 



par tide 
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Figure 3-1. ROS UNITREP SUBSYSTEM Overview 



(4) Aircraft asd Crews Status 

(5) ^'ajor Fqulptrent Status 

(6) Special Capabilities Status 

(7) Increased Defense Readiness Status 

(8) Reserve Augrrentation Status 

A chapter of the instruction is devoted to each situation. 
Details for the particular data sets which cotrprise the 
situation and the reporting requi rerrent s for each are 
provided. Review of the data set summaries for each 
situation reveals that certain data sets are common to all 
situations. For this reason an additional area, f0) Local 
Information, was formed to group the comncn data sets and 
other message related items. A final sitvatlon, (3) Type 
Commander Reports, was created to separate items which would 
he designated to be reported by higher authority. 

Three areas were selected to demonstrate the 
implementation approach. LOCAL Information was selected as 
it provides elements common to any NRS message. 
ADI^INISTRATI VE Status was selected for the relative 
simplicity of the data sets. AIRCRAFT cind CREWS Status was 
selected for the complex inter-relationships between the 
data components. The selected situations and supporting data 
sets/information are detailed in Table 3-1. 

B. PRCGRA^' ACTIONS 

Once the logical grouping of data had been confirmed it 
was necessary to to establish the set of program actions 
which could be performed on the data. 



33 



►-:i W 

<x; ^ 

« 2 : w 

W 1-3 

2 : 2 : w 

W cj; « 

O 



cu 

o 

a 

O) 

t:) 

CJ 

0 
P. 
1/1 

01 

(h 

(h 

O 

O 

C 

o 

H-l 

4-> 

t) 

p 



6-» 

tr: 9 h t-» <a; 
tH O 8 -» 
cc^ 13 -=*; C-* CO :2 

H-i ^ 3 c CO 3 * O 

< pc; W « p«3 o 

hh fX hh pc; 

o *<; o ex 



1 

c 

o 






6-^ 

C 

;=D 



■a 


CO 






be 




;> 






ex 






0 


w 


£H 




Vi 


ex 


< 


2: 0 >^ 


C 


£H 


cx 


<x; >• CJ) PX ^ 


HH 


HH 


&H 


>-H »-1 0 >— • 


\ 




:/^ 


c-i PU cx 


V 


:3 


l-H 


0 0 P«u MM 


( 1 / 






0 -a; px >• 


CO 




»--l 








2: 




T 3 




ex 




V 




< 





ex 



X) 



I 

CO 

0) 



T 3 

tri 



I 





c 
















0 
















f-H 




P- 












4^ 




P 


a 










03 




0 


0 










E 


X 


X 












P 


0 


0 


V 










0 


u 




tJ 










V 


03 


CU 




i—i 






IV 


C Cb 


C C 


fc 




&-• 






< 


H-t to 


-r-l 0 


•rH 


V V 


HH 






0 


VD 


CiC^ 0 


t-t 


•r-l **H 


JZ, 






0 


OJ CU 


^ 4 -> V 


1 


s-i a) 


X 3 






►X 


'U: ^ 


X 0 c 


CU 


0 tn 


\ 








03 tU 


<D 


V 


f-H 03 


M 


tr^ 


CO 




i/1 X3 




03 


t-, r-i p=: ex *— • 


►— » 


CO < 




CO ^ 




« PU 0 mm 


MM 0 


CO 


^ H-i 




cu 






p- 


>-4 CO 


0 


z: CP 




z: 






0 mm z: 


P-i 


ex» 



34 



riz l P2surrent 

The drafting document supports four requirements: 

— It is the drafter's worksheet and therefore for each 
data set provides; plain language descriptions of all 
fields, field length limitations, the source of 
information (governing directives or pertinent table 
references) and the data set reporting requirements. 

— It is the interface between the drafter and the system 
operator. Information presented conforms directly to 
the screen displays. 

— It is the means of reviewing all information as 
currently reported. Thus edch d<ita set or item of 
information as previously transmitted is reproduced in 
message format. 

— It is the means for the releaser to review the report 
with minimal reference to the governing instuctions. 
Therefore it contains plain language definitions and 
and an explanation of any coded items. 

Since the draft document has a multiple purpose it is 
necessary for the system operator to select the purpose for 
which the document is required. This is accomplished by 
limiting the selection to forms based on previously 

transmitted information or forms based on the current 
information, prior to actual message transmittal. The system 
operator also selects the situation for which draft 

information is required since, in general, reports are 



prepared for particular situation and do not require the 
draft information available for other situations. 

-2- 2 a New Report 

This selection allows the program to reset that 
information which is variable for the individual occurence 
of a report. Only one UNITREP may be in work at a time. 
However, in a full ROS including such items as CASRZPs , 
the capability to concurrently prepare several reports 
should be provided. 

3* action -3- Modify Report Information 

This action allows the system operator to change, 
adi or delete information as required when preparing a 
report. The system operator selects the situation to which 
the report information applies and program flow is directed 
to the subprograms for displaying and modifying that data. 

action 1 Print Hard Copy f^essage Format Report 
To satisfy a command's archiving requirements, the 
system provides the capability of prodiicing hard copy output 
of either the current message (undergoing preparation) or 
back messages (via either serial or date-time group 
reference). The information in back messages is not 
alterable by the system operator. A choice of formats (OCR 
and fleet broadcast) is allowed. 

action : Log the Report as Transmitted 

In general the date-time group for a rressage is not 
assigned until transmittal. When the date-time group is 



assigned AND provided to the systeir, report data is filed 
for possille future recall, maintaiaiag a serial/date-tire 
group cross reference. 

ACTION -fr J Il§se the Current Report 
At titr^es during the report generation cycle (Figure 
3-2) a report rray be either cancelled or so severely altered 
that inforratton as currently provided is useless. This 
action allows the system operator to 'fall-back' to the 
period before the reiport was initially generated. 

action -7- j.; Provide Verificatipn Information 
The NFS requires the Fleet Commanders in Chief 
(FLTCINCs) to conduct periodic reviews of all received unit 
information to insure current and accurate data is being 
maintained in the W'vMCCS database [Ref. 10, para.4.8dj. This 
action allows all Information as currently reported by the 
unit to be printed for comparison with the FLTCIN’C feedback 
verification message. 

S. ACTION z§Z .1 Cuit 

This action allows normal termination of the 
program, maintaining all information as input during the 
terminal session. 

C. PROGEAN DISPLAYS 

Once the system operator has selected to modify 
information for a particular situation, control of the 
program passes to the subprogram( s) responsible for allowing 
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Information 
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Figure 3-2 . Report Generation Cycle 



inodif icati on for the situation. The displays are grouped in 
direct correspondence to the drafting docurrent with dc.ta set 
natres and fields notated in full forn" vice abbreviatlc n. Ail 
displays are initially rrenu driven (positioning cf the 
cursor determines the data sets to be selected and inputs 
allowed) with abbreviated prorpts exhibited tc notify the 
operator of legal Inputs. Additional E2LP infjrmatjon is 
available for many items by typing a at the appropriate 
cursor position. Where data field contents are limited to 
only a few specific entries the choice is oy menu selejction. 
Where data field contents are obtained from a tabl(?, the 
table is cross checked to allow only a legal taule value. 
All special purpose fields (e.g. date-time groups, lat/long 
positions) are checked. All numeric fields are validated and 
checked for relational comparisons if required. Eata text 
entry in all other fields is limited to the field length as 
established oy the instruction [Pef. 12] . Characters are 
automatically limited to those allowed for message 
transmissicn codes with automatic conversion of lower case 
letters to upper case. The cursor automatically moves tc the 
next legal position when a selection has been made, the 
field length has been reached or the operator terminates 
data entry by a carriage return . The option to reselect 
items of the current display is provided prior to continuing 
to the next display. Eispiay formats are provided in 
Appendix A. 
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E. DATA STORAGE 

All UNITRIP information is maintained in a pair of 
external disk files (UNIT000A, UNIT000E) refered to as the 
Workfile. This arrangement allows buffering of data by 
report in the event of hardware, disk or software failure. 

All modifications are made to the workfile. When a report is 
being logged as transmitted (nc further update for that 
serial message is required) , the Workfile is copied to a 
separate UNITREF files storage disk inserted in tr.e 
microcomputer 3: disk drive. The filenames UNITxxxA and 

UNITxxxE, where xxx represents the report serial number, are 
used. This allows the data to be recalled for verification 
or message copy purposes. The Workfile is reset as required 
when a new report is initiated. 
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IV. IMPLiMZNTATION 



This chapter discusses the author's ROS UNITHIF 
SUBSTSTEf^ impleirentat ion in the Ada language. A review of 
the lirritations of the JANUS/AEA subset, a program overview 
and a discussion of the the various corrponeats are provided. 
The ROS UMTREP Operator's l^.anuai (Appendix A) and the ROS 
UNITREP CCf^PUTER LISTING (Appendix C) rray be refered to for 
rrore detailed inf orrrat ion . 

A. AIA SUBSET RESTRICTIONS 

The JANUS subset of the Ada language provides rrany of 
the sophisticated features required in a high level 
language. Lata abstraction and strong data typing allows a 
clearly readable coding style with the ability to uncover 
and correct errors during compilation vice run time. The Ada 
package concept allows a modularization that leads to 
localized and easily modifiable code which can be altered 
without serious consequence to the program as a whole. 

Powever, the lofty goals of the Ada language do not 
easily lend themselves to implementation on small scale 
microcomputers. Quoting from the JANUS/AD.A Package User 
Manual : 

"The major design tradeoffs in Janus were power versus 
simplicity. A major effort was made to keep the Janus 
subset as small as reasonable. This was cone in order to 
complement yet not inhibit the ambitious nature of Ada. 
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Janus was designed specifically for the rrlcrocofrputer 
envi ronirent . Therefore, every Ada construct which would 
have required excessive rrachine resources was rejected. 
The coirplicated features of Ada that are viaole only for 
large corputers, e.g. parallel processing, are not 
included in Janus. [Ref. 9; p . 1-lJ 

It is not the intent to review all JANUS deficiencies here. 

A ccrplcte list is at'ailahle in the JANUS /ADA PACKAGE USSR 

NANUAL [^ef. 9: App. L] . Those iteirs which detracted frorr 

the ROS 0NIT5.EP irplennentat ion will be discussed. 

1. leek of a Standard I/O iInput/Outuuti Package 

JANUS iirplerrents this concept through the use of 

library rrodules. Four of these library rrodules were used by 

the prografr. The subprograirs which are provided by these 
Fodules are listed in Appendix B. Unfortunately rrany Ada I/O 
subprcgr.itrs were not ippl errented , ' particularly those 

addressing full screen console operation and printer usage. 
This required creation of the necessary functions. 

2' hack of Aggregates 

Aggregates are written forms denoting a composite 
value, essentially being record and array literals. Without 
aggregates all composite variables required initialization 
at run time in the package body. This detracts from 

localizing such items as constant strings with their value 
at the declaration. 

The JANUS compiler maintains internal tables for 
certain objects encountered during compilation. A maximum of 
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ninety (90) different data types rrdy be specified. As dll 
DNITEEP data sets and rany of tneir corrponents were 
represented ds serarcite types, the limit WdS exceeded. This 
necessitated rrodif ication of the prograrr and data structure 
into modules where the total number of types-, for each 
module, were within limits. 

4. I§ck of Inception fondling 

This Ada feature allows a program to react to an 
event which causes suspension of normal program operation. 
Without the built-in exception handling capability all 
keyboard input was character and string buffered and the 
content interpeted in separate subprograms. Subtyping could 
not be usefully employed since this constraint_er ror type of 
exception resulted ir program aborts. 

1^9“ of sB Ql^rlay Capability 

In the micrcv''omput er environment the utilization of 
overlays for medium and large programs is a necessity. The 
lack of overlays required physically dividing the program 
into four independent executable files and introduced the 
need for communication and control components. Since the 
program is structured with a large set of supporting 
subprograms (24 kilobytes) this information must be 
reproduced for each module. Therefore 72 kilobytes of 
secondary storage are duplicated code. Additional disk 
access time is required to load the larger program modules 
in comparison to what would be much smaller overlays. 
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6. Lack of Randorn Access iBead/W'^it el internal Files 

In JANUS external files can only be read or written. 
Such restrictions require the entire external file to he 
loaded into train trerrory for the trodif icat ion of a single 
component, even- if the file is static in corrpcsition. For 
large external files the ir-pact on train tretrory and progratr 
size is prohibitive. This also prevents the use of dynatric 
files, which resulted in the Inability ro provide the user 
with an on line file update capability for rraintalning 
certain tabularized data. 

string 

JANUS uses dynatric strings and supports full string 
operations. Although not detrirrental for the purposes of 
this program, portability and c ompa ta bil i ty problems may 
occur with other Ada compilers. 

E. PROGHAr' OVFRVirV 

Prior to reviewing the program, an explanation of terms 
used in the discussion is necessary: 

— subprogram: a procedure or function, 

— package: the Ada construct for the logical grouping of 

informat ion . 

— package specification: that part of a package which 

contains the declarations of types, constants, 
variables and visible subprograms. 

— package body: that part of a package which contains the 
information necessary to support the subprograms 
declared in the package specification. 
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— rr.odule: the executable code (.COf^ disk file) vhich 
results when packages are corrpiled and linked. The 
rrodule narre is that of the highest level package. 

The lowest level in the prograrr hierarchy consists of 
the basic prograrr support features which provide console and 
printer ccrrirunicat ion , global inf ortration, prograrr rrodule 
corrtrun icat i on and utility subprograms. This level consists 
of the ?AC^j\GJs consio,printio,urglobal and urutil as shown 
in figure 4-1. 

The UMTEIP data structure definition is divided inco 
two components by PACKAGES unitrepA and unitrep3. The 
respective subccrrpcnents (PACKAGES urgltl, urlccalA; 
uradminB and urairB) and structure are shown in Figure 4-2. 

PACKAGE unitrep provides tne train selection sutprograr's 
for choosing and processing the desired prograrr actions and 
areas, as well as the constructs for directing program ficv 
to the ether control packages (unitrepl, unitrep2, 
unitrep3). PACKAGE unitrepl also interfaces to the LOCAL 
Inforrration subprogratrs contained in PACKAGES urlocai and 
urlocall. (Modules unitrep and unitrepl operate on data as 
defined ty unitrepA. File checking and handling subprograms 
for the 'A' structure are contained in PACKAGE filerA. The 
PACKAGE initialA is used to set the contents of the external 
disk work file (UN IT000A ) as required for initial program 
operation. (Figure 4-3) 

PACKAGE unitrepP controls access to all ALt^INISTF.ATIVE 
processing subprograms (P.^CKAGE uradmin) as well as all AIH 




> 
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Figure 4-1. Basic Support Organization 
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Figure 4-2. Data Structure Organization 
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Figure 4-3. Program Structure for *A* Data 
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Figure 4-4. Program Structure for 'B' Data 
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processing subprogrars (PACKAG5 urair ) except 
concerning the rrodi ficatl on of AIR information. PACKAGE 
unitrep3 is the interface to the AIR information 
modification subprograms as contained in PACKAGES nrairl, 
nralrP, urair3. ^'odules unitrep2 and unitrep3 operate on the 
' 3 ' data structure. File operations are contained in PACKAGE 
filers. PACKAGE initials sets the contents of the external 
disk wcrkfile (UNITP00B) as required for intiai program 
operation. (Figure 4-4) 

C. BASIC PROGRAM SUPPORT COMPONEKTS 

Four common packages are required ty each of the four 
program modules to provide the basic support items. Tko of 
the packages - consio and printio - are designed to he 
customized to the specific hardware configuration of the 
terminal and printer. A third - urgiohal - provides global 
information, user assistance subprograms and module 
communication information to control program flow. The 
fourth - urutil - consists of routines for the checking of 
redundant fields and higher level, general subprograms. 
Initially a fifth package - urtest - was included to gather 
testing information on the system. Although not included in 
the final product it will be discussed. 

(consio] 

This package satisfies three purposes: terminal 

customization, keyboard character conversion and screen 



c; a 

w/ u 



oriented (x/y) dddresslng procedures for data input and 
output . 

a. Terminal Customization 

In general, all terminals have a specific 
interpetation of the Am.erican Standard Code for Information 
Interchange (ASCII) character coaes in relation to terminal 
functioning (e.g. cursor positioning, screen backspace, 
clear screen). Any program function or procedure dependent 
upon a specific interpetation of one or more of these codes 
would require modification for the specific terminal. This 
would he unsatisfactory in light of the number of different 
terminals available and the number of different subprograms 
used to support the full screen, menu driven user 
interface. For this reason items peculiar to terminal 
functioning are hidden from the program in the consio 
package tody. For localization purposes those ASCII 

character codes which have accepted meanings (carriage 
return, tell, horizontal tab) are declared in the package 
specification, while non-standard interpeta tions are 
declared in the package body. When customizing to a 
particular terminal only those items in the package body 
must be modified. The package body is then recompiled (vice 
recompiling the entire program) and the four modules are 
relinked. An example of the differences is between two 
terminals is given in Table 4-1. Two procedures directly 

relate to terminal customization: 
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— FROCIIUF.I gotoj:y{x,y: IN INTIGIR); 



The program 


Is 


coded 


on the 


assumption that 


it will 


be 


impl emen ted 


on 


a terminal 


allowing at least 23 


rows 


(numbered 0' 


-22) 


and 


79 columns (numbered 


0-78) . 


This 



rreets the standard 24 rox by 80 colurrn display with a 
small safety margin. This procedure modifies the linear 
representation used in the program (x - column, y - row) 
to that set of character codes required hy the terminal 
to position The cursor. The ccnversion algorithm to the 
correct value must be modified for the specific terminal, 
the consio package tody re comTii led and the four control 
packages (unitrep, unitrepl , iinitrep2, unitrep3) relinked 
prior to distribution and use. 

— rPOCIIUFI cl ear_screen >* 

Sends the clear a>^d home character to the terminal. 



lirect mcdificatlon of this procedure is not neccessary 



since the clear screen 


cha rac te r 


code is 


declared 


at the 


beginning of the consio 


package body. 








b . 


Character Conv 


erslon 












The output of the program is 


a message for 


ready 


for 


Transmission. 


Therefore , 


only those char 


ac ters 


which 


are 


compatible with 


loth the 


Cptical 


Character 


Reader 


(OCR) 


and 


five-level 


(3AUE0T ) 


character codes 


are 


acceptable . 


Since most 


keyboards 


provide 


the 128 


ASCII 


characters , 


some means of 


limi ti ng 


to these 


character 


sets 



is necessary. 
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— FHOCirUHI baudot_convert (char: IN OUT CEARACTEB); 

This procedure Is hidden froir ihe prograsri in th«: coaslo 

package body and rray be modified to any desired c:haracter 
set. Nc action is taken on control cbaracters (ASCII 
lecimal 0-31) with the exception of ASCII 3. Control-C, 
which is Interpeted to be a user commanded program abort, 
and ASCII 9, tab, which is converted tc an 'X' character 

to allow the tab key tc be used in menu selection func- 

tions. All lower case letters are avtomatically converted 
to upper case. The set of all allowable characters is: 
012345e789 ABCD£?GEIJiLMNO P 
C P. S T U V W X Y Z - ? : $&#'(). , ; / '’ 

space 

Any other character input from the keyboard is 

automatically converted to ASCII 2 and ignored in 
processing. The operator is notified by an aural tone 
that the denressed key is unacceptable . 

c. Screen Oriented Input-Cutput Procedures 

The decision to use a full screen format and 

menu selection reo.uirea a complete range of screen oriented 
subprograms. The majority of the subprograms in this class 
can be identified by the 'xy' in the subprogram name. 

— FH0CZEU5E getxy_immediate(x,y : IN INTEGER? 

char: OUT CHARACTER); 

This procedure is used to character buffer all data input 
and during menu selection. The cursor is positioned to 



the indicated coordinates (PROCEDURE gotoxy) and exactly 

one keyboard input is read and converted to an acceptable 

character, 'char'’ (PROCEDURE baudot_convert) . 

PROCEDURE getxy(x,y: IN INTEGER; 

terrp: OUT STRING; 
f ield_length : IN INTEGER); 

This procedure builds a string, 'terrp', character by 
character (PROCEDURE getxy_lrrirediate ) , operating on each 
character as received. All ASCII 0 characters otre ignored 
and on screen backspacing and deletion are allowed. The 
size of the string is autorratically lirritea tc 

'field_length' characters. Keyboard input is terirlnated 
when receiving a carriage return or upon reaching the 
field length. The string is then stripped of any trailing 
blanks which rray have been entered. The string is then 
returned to the calling sucprogratr for use. 

PUNCTION trark(x,y: INTEGER) RETURN 30CLEAN; 

This function is used in trenu selection areas where a 
boolean value is required by the progratr. The function 
accepts a keyboard input (PRCCEDURE getxy_irrtr’ediate) and 
determines if it meets the requirements used to indicate 
a irark. TRUE is returned if an 'X' or tab key has been 
depressed, FALSE is returned if the carriage return or 
space tar have been depressed. If one cf these four xeys 
was not selected the input is ignored and the user 
notified by an aural tone to reselect. 



-- PROCirUHI putiy(x,y: IN INTIGER; 

terrp: IN STRING); 

This procedure puts the contents of the input varlahle 
'terrp' at the indicated coordinates (FROCEEUPE gotoxy). 

— PROCSrURE clear_field(x.y, ien : IN INTEGER); 

This procedure is used to erase the entire contents of a 
data field at the indicated coordinates (PROCEDURE 
gotoxy). This applies only to the terrrinal display, not 
the actual data field variable. 

The printer package supports the program 

custotrizatioa to a particular printer and the setting of 
several printed copy formats. 

a. Printer Customization 

Since a continuous page printer was used, only 
printer enafcling/disabling and page ejection mechanisms were 
required to be constructed. 

— PROCEIUHE printer_on; PROCEDURE printer_off; 

JANUS/ADA communicates through the standard CP/M-S2 

filenames for input/ouput devices. The measures described 
in the manual using the LST: device were followed [REE. 

9: p. Z-h] . 

— PROCEDURE new_page; 

Although a standard ADA construct, this procedure was not 
available in the JANUS/ADA subset. It was simulated by 
putting the form-feed character (ASCII Decimal 12) to the 
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C.P/f'I 1ST: device. The page_eject constant is hidden in 

the printio package body to be easily modifiable, 
b. Output Formats 

Three output formats were selected for 
demonstration purposes: message (msg), which simulates the 

-'or.rat received during fleet broadcasts; Optical Cnaracter 
Header (ocr), which is used for message preparation; text 
(text), which is used to prepare printed data not message 
orien ted . 

— TYPE format IS f msg , oc r , text ) 

PHOCEIUBE set_f ormat ( f 0 rmat_type : IN format) 

The various parameters for each format are listed In 
Table 4-2. Formats are set either by default or, where 
applicable, by the operator through menu selection op- 
tions. The procedure controls the actual parameters and 
is hidden within the printio package body. It is adjust- 
able to any format by variation of the format parameters. 

— PROCEEUHF put_printer (cont ent : IN STRING); 

Cnee the format is selected all printer directed output 
is passed throgh this procedure. In addition to writing 
to the printer the proper format is maintained by adjus- 
ting header lines, line spacing, margins and page ejects. 
The line count is adjusted at each call to new_page. 
?^ckage lurglobalj 

The global package provides the declarations of 
global types, constants and Variables, the program status 
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structure for prograrr troiuie corriinunicat Ion , general use 
sutprograrrs and user assistance sufcprograiTs . 



a. Global Teclarations 

The package specification details the types, 
constants and variables which rr.ay be accessed by all higher 
levels of the prograir. Comiron use teirporary variable 
identifiers for the specific types INTIGZR, STRING, 
CHARACTIR, BOOLEAN and EILE are listed here to rraintain 
uniforrrity of reference throughout the program. Constant 
characters are used in case statements and equality 

comparisions - letters are recognized by the lower case 
representation of the character (e.g. ' for 'A') while 

other characters are represented by plain english (e.g. 
'space' for ' '). Constant strings (of length one) are 
recognized by the '_mcrk' suffix (e.g. 'a_rr<irk' for "a") or 
plain english (e.g. 'dash' for String constants are 

initialized in the package body as JANUS ^ACA does not allow 
the use of aggregates in the package specification. 

The eight designated program actions are carried 
as both a type ('action': draft, neww , print, etc.) and an 

array of booleans ( 'act ion_is ' ) since JANU3/ABA does not 
provide for the writing to storage of enumeration types 
(other than boolean). The ten program areas, consisting of 
the eight UMTRZF situations, the LOCAL Information area and 
the TTPZ CCf'KANDZR report section are similarly representea 
('area': local, air, admin, e tc . ; 'a rea_i s ' ) . 
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t. Progran) Module Communication 

Since the program is structured in multipie 
modules, seme information passing is necessary to mainicin 
program control without requiring redundant user 
interaction. This information 5s contained within tne 
variable 'program' whose structure is the type 
'program_ status ' . An explanation of each component of 
program follows. 

— unit: TYPE unit_type IS 

( ship, submari ne ,air_uni t , shor e , c t her /' 

This item is used to distinguish the reporting 
requirements cf certain data sets (e.g. only ships and 
submarines are RECUIHEr to report their positions (POSIT 
set), only ships and submarines are allowed to report the 
physician status (MEEIC set) ). This allows the program 
internally to required or disregard these fields. 'Unit' 
is set in PACKAGE urlocal, PECCEEUPE process_ iocai_ 
in frequent . 

— in i t idl_ ent ry : 2C0LEAN 

This item enables the Sign Cn display screen. It is 
reset in PACKAGE unitrep during the initial execution of 
the main program and set when the user elects to quit 
the system in PACKAGE unitrep, PROCEDURE prccess_action . 

— print_trailer : 300LEAN 

This item is used by PACKAGE urlocal, PROCEDURE 
print_msg, to determine if message trailing items (RMKS 
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dnd ICIAS data sets) are to te printed. This sequences 
the proper printing order. It is set in FACXAG2 unitrep 
after sign on and reset in PACKAGE unitrep when action 
-8- (quit) is selected. 
rres5age_ tra nstritted : BOOLEAN 

This iterr is used hy PACKAGE urair. FUNCTION 
pr iat_wi th_delete to determine when a deleted data set is 
required to he printed (Figure 4-5). It is set in PACKAGE 
unitrep, PFOCEEURE process_action when a message is 
logged as transfritted (action -5-). 
current_action: action_state 

This iteir comtrun icat es the proper action to each progranr 
trodule. It is set in PACKAGE unitrep, Procedure 
choo se_acti or. . 
current_area : area_state 

This iterr is used oy the various control packages to 
direct program flow only to the user selected areas. It 
is set in PACKAGE unitrep, PHCCEDURE choose_ar eas . 
current_forrrat : f orrrat_state 

This item is set either hy default of through user 
selection in PACKAGE unitrep, PRCCSEURE choose_action , 
and rraintdins the proper forrrat during a print cycle, 
print ing_line: INTEGER 

This iterr is set ty the variable line count in PACKAGE 
printio. It maintains the value of the line currently 
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PRINT 
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Trensrritted 


►NO 


Transmitted 
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Figure 4-5. Data Set Print Decision Tree 
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teing rrint*i:cl when switching tetween rrodules during any 
action which requires printed output. 

— workfile: STRING(14) 

This iterr holds the naire of the current data structure on 
which the program is operating and is set in PACKAGI 
unitrep, PECCSSUP.I process_action. 

The prograiT status inforiration is stored at the termination 
of any module and is loaded at the beginning of execution of 
any module (see rP.CGEAK CONTROL CCmPCNINTS ) . 
c. General Use Subprograms 

Sutprograms in this grouping are used throughout 
the program to support other, more complicated, constructs. 

— PEOCirUHE >)or->']er» provides the display screen outline 

— PROCEIDEE process_,comment (data_set : IN STRING; 

comment: IN OUT commen t_set ) ; 

This procedure' provides screen processing of 
amplification (Af'FN) and remarks (RMKS) data sets. The 
content of 'commerit_set ' is described under PROGRAN' DATA 
COMPONENTS (urglbl). Comments are processed as external 
files in order to reduce data storage requirements. These 
free text files are purged once a message has been logged 
as transmitted. If a file has been created previously, 
the contents are loaded and displayed (Figure A-5) . 
Otherwise a new file for that data set is created and the 
user enters the free text content. ’Ahen the user has 
completed the initial entry of data, noted by reaching 



€3 



the traxirup" ollcv/ed con'rr.'ent lines (10) or inputing a 
carriage return on a hiaak line, the option is presented 
to line edit, erase or continue with the prograir. Cnee 
the user is satisfied with the frae text the program 
stores the content in a file on the A: disk with a 

filename of 'data_set ' and a filetype of ".Af^P** (e.g. 

'posit. A f^P" ) . Remarks are processed as 10 pages of 

comments to allow 100 total lines. In situations where 
multiple data sets are possihie the variable 'data_set' 
is modified at the point of the procedure call to 
indicate the instance of the 'data_set' with integer 

suffixes (e.g. CRI¥STaT amplification, 'data_set' := 
’’CP¥STA12” where 'l' indicates the first aircraft type 
and '2' indicates at tne second location; AIRAUTE 
amplification, 'data_sef' := "aIPATHI" where the 'l' 
indicates the first aircraft type). 

— PROCIIURE print_com.ment { data_set : IN STRING); 

This procedure is used to print the content of 
amplification sets only. The external file, 
'ddta_set ' .AMP , is located and "AMPN/" is appended at 
the beginning of the first line. All lines are printed 
and the end of data delimiter appended to the 

last line. Although remarks are processed as multiple 
page amplification sets, a special procedure must be used 
for printing as the placement of the delimeter is 
variable (see PACKAGE urlocal, PRCCIDUR2 print_msg). 
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— lUNCTICN reauired_print ( changed_i terr : JCCIZAN) 

RZTlip.N BOOLEAN 

Eased on data set printing requireirents (Figure 4-5), 
this function deterrrines if a non-deletable data set is 
to be printed. 

d. User Assistance Subprcgrarrs 
The user assistance subprograirs notify the system 
operator of input errors, provide additional EELF 
information or provide draft document information. 

— FROCEIUPI error ( number : IN INTIOER); 

In certain situations of illegal data entry or where 
notification to the user of certain actions required to 
be followed are necessary, error messages are used. The 
error number is set at the procedure call and the 
external SP.El^SG file is accessed. The required 'number' 
of lines in the file are searched and the appropriate 
error message is dislayed at the bottom of the current 
screen display with an aural tone. The procedure waits 
for a user input before clearing the error message. Error 
messages are contained in Table 4-3. 

— PROCEIURE help (data_set : IN STRING); 

This procedure allows the user to obtain upto seventeen 
lines of information pertaining to the particular item at 
the current cursor position. When the user enters a 
question mark ('?') at a valid location the external 
SELP.TXT file is accessed and a search made for 
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lable 4-3. Error 
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21: Required infortration for a classified iressage 



Table 4-3. Error (^essa^'es (cont'd) 
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'iista_set'. Cnee found the contents of the file are 
displayed until the delimiter (a single period on a line) 
is reached. The procedure terminates when the user maKes 
a keytoard entry and control is returned to the calling 
subprogram at a point allowing use of the information 
viewed . 

FP.0C5IL15E view_table( filename; IN STRING); 

This procedure is used in conjunction with the help 
subprogram when the data field item under enquiry is 
contained in a table supplement to the instruction for 
which the program is designed [Ref. 10: Tables £-1 thru 
E“14] . The procedure notifies the user that that table 
entries are available, by message and an aural tone, 
following cl HIIF request. The user may elect to view or 
not view tlie table. If the decision is to view, the table 
entries are displayed seventeen per screen. The user can 
exit viewing at any point or will automatically exit at 
the end of the table. Program control returns at a point 
allowing use of the information. 

PROCEIURI draf t_aid(data_set ; IN STRING); 

This procedure provides the user hard copy information to 
assist in the drafting of a report. The information is 
stored in an external file, ERAFT.TXT, and is 
automatically accessed during draft document preparation. 
The EPAJT.TXT file is searched for 'data_set' and all 
contents until the delimiter (a single period on a line) 
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are printed. A san-pie draft document prepared using the 
content of IEAFT.TXT is contained in Appendix A. 

4* lockage lurutilj 

The utility package provides several subprograms 
which are also of general use but which were separated from 
PACKAGI urglobal for their similarities. 

— FROCIIDEI veri fy _number (numti-r _of _digit s : IN INTZGEP.; 

temp: IN OUT STRING; 
success: CUT EOOLSAN ; 
number: CUT INTEGER); 

The necessity of string buffering the input (as JANUS/AEA 
has no exception handling capability) required a 
capability to determine if certain string inputs were 
numeric In nature and if sc to provide the integer value. 
This procedure checks all characters of the string 
'temp', insures they are numeric and then converts the 
string to an integer value which is returned in the 
variable 'number'. If 'temp' does not represent a number 
or if the number is not positive and in range (0 to 
( 10’*'=»'numter_of_d igits ) -1 ) then 'success' is set EALSE. 
leading spaces within the string are converted to the 
zero ('0') character. 

— EUNCTICN getxy_digits(x ,y,number_of_digits : INTEGER) 

RETURN string; 

This function is used where the integer value of the 
number is not immediately required and where x/y 
addressing is prefered. The cursor is positioned at x,y 



es 



HI iiiinmiir 










and a iraxiiriurr of 'nuir cer_ of_digi i s ' characters are 

accepted. Input is terrrinated on a carriage return of 

when reaching 'nutrher_of_digits ' . Any trailing blanks are 

stripped and the string is sent to PROCSEURZ 

verify_nutrber for processing. If the input is an invalid 

number the user- is notified with an error message and the 

sequence is repeated within the function. The function 

terminates when a set of numeric characters which meet 

the various tests is processed. That set of numeric 

characters is then returned as the function value. 

FR0CEEU5Z verify_dtg(dtg : IN CUT UTRING; 

success: CUT ECCIZAM); 

Error checks 'dtg' for all legal date-time groups. If an 

invalid date-time group is received the user is notified 

by an error message and 'success' is set to PALSZ. The 

date-time group template, "ddhhmmZf'MI^yy ” is returned 

after the user clears the error message. 

PROCZEUBZ verify_lat_long(ldt_long: Ul OUT STRING,' 

success: CUT ECCLIAN); 

This procedure error checks lati tude/lcngitude position 
reports. If the entered 'lat_long' is incorrect the user 
is notified by ar. error message and 'success' is set to 
ZALSZ. The position template, "ddmmEC-dddmmEC" is 

returned when the error message has been cleared. 

ZUNCTICN checksum(temp: STRING) RETURN INTEGER; 

This function calculates the checksum for a string of 
numeric digits and returns that integer value. 
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— lUNCTICN zero pdd(nuirter of digits: INTEGER; 

temp: STRING) RETURN STRING; 

Ihis function adds character zeroes ('0”) to the 
heginning of the string 'temp' if required to fill the 
string out to 'number_of_digits' . It is used to maintain 
numerical string variables of consistent field widths. 
?§st Package iurtest]. 

This package was initially envisj,oned as a means of 
automatically collecting test data on program operation. 
This includes such items as user identification, sign on and 
sign off times, program recognized error tabulations, the 
number of help accesses required and a method of gathering 
user comments. Use of this package was discontinued because 
the lack of JANUS /ADA random access read -'write file 
procedures reaulred separate external test data files to be 
generated each time a program module was entered. This 
produced a number of files which frequently exceeded 
directory space during program operation causing program, 
abort. Elimination of this package increased the space 
available in main memory and allowed the use of a larger 
file buffer size which increased file handling capabilities. 
References to the test procedures remain in the program 
listing and are recognized by the characters ’ — #' whic.h 
effectively comment out all calls to the applicable 
subprograms . 
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r. PHOGHA^. DATA COMPONENTS 



The program uses nested Ada record types to define the 
data structure. At the lowest level the data is structured 
according to the data set definitions [5ef . 10: pp. 11-5 

thru 11-47]. The type identifier consists of the data set 
name and a '_set' suffix (e.g. 'operation_set ' , 
'medic_set ' ) . Each component of this record represents a 
data field of the data set. Data sets which are conditional 
(i.e. reported only when necessary) are identified oy a 
boolean flag ('change'). Datct sets which may be deleted are 
Identified by an additional boolean flag ('delete'). If a 
data set can be amplified the record contains the component 
'ampn' which is defined in PACKAGE urglbl. 

These data sets are then grouped in another record 
according to the UNITRSP situation to which they apply (e.g. 
' 'local_set ' , 'air_set') by the appropriate package 
(urlocalA, uradminB, urair3). These composite area sets are 
finally grouped in the 'unitrep_set ' record as declared in 
PACKAGES unitrepA and unitrep3. The identifier 'u' is used 
in both packages to denote the unitrep data variable. This 
allows the multiple data structures to be collapsed to a 
single data structure for Ada subsets without the JANUS/ADA 
type limitation. 

1 ?§.ta (.urglbll 

The NPS Instructions allow the majority of NRS data 
sets to be amplified by using the free text set 'AMPN'. An 



ajnplif Icati on set consists of upto 10 lines of text, 69 
characters per line. In order to litrit the printed line 
length in a message to 69, the program constrains the free 
text line length to 62 characters (data set identifiers and 
delimiters account for the other 7 characters). PACIAG2 
urglhl consists of the declarations necessary to support the 
'Af'PN' data set. As the actual text is stored in an external 
file (see PACEAGI urglohal, procedure pr ocess_coirment ) the 
type 'comment_set ' , consists of only a flag ('change') and a 
count of the 'nurber_of_lines ' in the set. This count is 
used when processing remarl-cs sets (which are interpeted as 
upto 10 pages of comments. 

1 

2, local Information Data lurlocalA) 

This package defines those data items necessary for 
the construction of any NHS/UNITHEP message. Lata sets 
included in 'local_set' are generally noted as mandatory by 
the instruction. In addition to the data sets, type 
'message_set' contains information relevant to the 
particular message (e.g. date-time group, precedence, 
classif ication , declassification) . The type 'status_set' 
maintains the items used in the message identifier line 
(r^SGir or UNITID) . 

3. Administrative Information lata luradminPj 
PACKAGE uradminE contains the declarations for the 

types used in preparation of administrative information 
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[Ref. 10: pp.4-2,4-3j. These sets are relatively sirrple as 
no deletions or coirpiei relationships are involved. 

hil 

Aircraft and Crews Status iaforrration [Ref. 10: pp . 
6-6, 6-7, 6-6] requires a tnuch more complicated structure. The 
user may submit a variable number of these data sets 
depending on the type aircraft and also the location of the 
aircraft, xecause of the static nature of the data structure 
several design restrictions were required. In examining the 
air data sets it is clear that the aircraft type is a 
requirement of all. Therefore a set number of aircraft types 
is required. An arbitrary value of four (4) was selected. 
Three data sets (AIRSTAT, CRIWSIAT, RICCN) require location 
information. Again arbitrarily a value of four (4) was 
selected. The location information is a subcomponent of the 
aircraft type, therefore up to sixteen (16) total locations 
are allowed. The structure and size of the air_set record is 
more clearly displayed In Table 4-4. The size of the data 
structure became relevant because of the the storage 
required in main memory during program execution. A rough 
formula for determining the size of the air data structure 
is : 

size = 1.2 X (3 + 'max_ac_types ' x 

(27 + 'max_locations ' x 149) ) 

'Max_ac_types ' and 'max_locat ions ' are declared as constants 
in PACKAGi urairR. 
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Table 4-4. Air Data Storage Requirerrents 
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HATA ITt'M RAW BYTEi) OF STORAGE REQUIRED 
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nximberofcv^pabliitles: 
Cdpdbillty: ARiRAY (l..rrcix 
STRING (8) : 
arrpn : 



5. Cotrposite Data luniirepAj unitrepBl 

PACIAGI unitrepA consists of only the LOCAL 
structure define in PACKAGE urlocalA. PACKAGE unitrepi 
consists of both the AD^‘INISTRATIVE and AIR structures frou 
PACKAGES uradminB and uralrB respectively. 

E. PR0GRA^ CONTROL COr^PCNENTS 

Prograir flow is directed according to the actions and 
cireas which are selected by the operator. Without an overlay 
capability, as the prograrr size expanded it was necessary to 
physically separate executable portions of the prograrr to 
Terrain within rrain irerrory space lirritations (64K). The 
program control cotrponents are responsible for operator 
selection of action, selection of area(s) when required, 
direction of program flow to the necessary trodules and the 
data file rranipulat ions required for support of the selected 
action/area(s) . 

IliTalZ Control lunitrepi 

PACKAGE unitrep provides the program initial (sign 
on) operations, the selection of prograrr actions, the 
necessary contructs for supporting the selected action and 
the selection of area(s) when required. 

a. Program Initial Operations 

Subprograms falling into this category are only 
executed at the beginning of the terminal session. The flag 
'initial_entry ' controls their execution. 
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— FROCEIDSE check_required_f il es > 

This procedure checks to insure that all main (disk drive 
A;) files necessary to sustain program operations are 
present. If a file is missing the program notifies the 
operator as to the filename of the required file and 
terminates execution. 

— FS0CEEU5E slgn.onJ 

This procedure displays the HCS UNITP.EP SU2SYSTEM version 
number and the serial and transmittal status of the 
report currently in the workfile (Figure A-1 ) . 
h. Action Evaluation Subprograms 

As discussed in Chapter III, eight program 
<ictions are permitted. Figures’ A-2 and A-3 detail the screen 
displays for action selection and the required additional 
prompts respectively. 

■ — PROCIITJEE choose_actlon(action_is: CUT action_state); 

This procedure is executed whenever control is passed to 
PACKAGE unitrep. All actions are mutually exclusive. The 
appropriate component of 'action_is is set to TRUE. 

— PROCEIURE process ac ti on (ac tl on_l s r IN OUT action_state; 

success: OUT BOOLEAN); 

This procedure insures the legality and proper sequencing 
of requested actions and performs the preliminary 
operations such as format setting and data filename 
selection required to support that action. It consists of 
a multiple IF-EIS IE . . .ELS lE-EISE-ENE IF construct which 
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evaluates the selected action. The output of this 
suoprogran is used to drive a similar construct in the 
operative modules for processing the action on the area 
data. The constraints for each action are: 

— action__is (draft ) : The drafting document m.av he 
requested at any time during the report generation 
cycle. Draft information is normally based on the most 
recent report transmitted. However, if a report is in 
work in the system the operator may request draft 
information based on the pending report. This option is 
used to provide the releaser the detailed information 
required to evaluate the report with minimal reference 
to the instruction. Depending on operator selection the 
appropriate data file is determined. 

— actionals (r.eww) : This action m.ay be selected only if 
the workfile has been transmitted. If it has net been 
transmitted The operator is notified that only the 
modification, erase or log actions are allowed. 

— action_is{r.'odify) : Modification of data is only 
allowed for reports which have not yet been logged as 
transmitted. If the report in the workfile has been 
transmitted the user is notified to select the new 
act ion . 

— acticn_is(print ) : The print action may be requested 
at any time during the report generation cycle. The 
operator may request a print of either the pending or a 
past message. Past messages may be recalled by either 
serial or date-time group. Date-time groups are cross 
referenced to the appropriate serial. If a past 
message, the external disk data files are checked to 
insure they are available. If they are not the operator 
is notified. Prior to printing a valid m.essage the user 
is given an option to select the print format. 

— action_l s ( log) : Logging a message as transmitted is 
only allowed when the report in the workfile has not 
already been logged. The user is notified if there is 
an attempt to do this. When a valid action the user is 
prompted for the transmittal date-time group. This 
date-time group is entered with the report serial 
number in an external cross reference file (CHCSSHIF) . 
The new data file name, 3:UNITxxx is set based on the 
report serial for use in filing the reoort data on tne 
disk. 
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— action_is ( erase) : The erase action may only be 
selected when the report in the workfile has not ceen 
transmitted. The prograrTi erases the workfile by copying 
the data file of the last transmitted report. Therefore 
the external data files are checked to insure that 
those required are present. If they are not, the 
program terminates, notifying the operator whicn data 
file is required on the B: disk drive. 

— action_is(verify) : Jesdtack verification may be 
requested at any time. The operator is prompted for the 
verification serial and the program searches the 
external data files for tnat BrUNITxxx required. The 
operator is notified if me data file is net present. 

— action_is (quit ) : This action terminates the program 
normally . 

c. Area Selection 

For draft or modify actions the program requires 
the selection of the appropriate UNI THF? situation to direct 
the flow to the appropriate .rodules(s) (Figure A-4) . Areas 
are automatically limited to those implemented (LCCAL, 
AIMIN ISTRATI VF , AIR) with a reselection capability provided. 
PROCirURI choose_area (area_i s ; IN OUT area_state) provides 
the required constructs. 

The main body of PACKAGE ’’.nitrep and PACKAGES 
unitrepl, unitrepP, unitrep3 provide the program control 
between these four modules. Program flow is based on the 
relationships between the selected action, the selected 
area(s) and the current execution point of the progran'. Ail 
information is contained in a program data file (STATUS) 
whose structure was discussed in relation to PACKAGE 
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urglobal. The basic operations, other thc*n control, 
supported by each package are; 

— unitrep: provides action and area selection and data 

file definition. 

— unitrepl; provides access to all actions on the LOCAL 
area data. 

— unitrep2; provides access to all actions on 

AII^ INISTRATIVS area data and access to ail actions on 
AIH data with the exception of nrodify. 

— unitrepS; provides access to the rrodif ication of AIH 
area data. 

The flew charts of Figures 4-6 thru 4-12 detail control of 
prograrr direction. 

3. File Handling XfilerA/3) 

The filer packages provide for checks of valid 
files, controlled program termination, worsfile loading and 
storage and program status file loading and storage. The 
major difference in the files is that filerA manipulates 
files for the 'A' data structure while filers manipulates 
files for the 'B' data structure. 

— FUNCTION valid_file(filenam.e; STRING) RETURN BOOLEAN; 

This function is used to check external disk files for 
existence to avoid abnormal program termination if an 
external file is not available. If a portion of the 
'filename' is "UNIT*', an 'a' or '3' suffix will be 
appended (to distinguish between A and E data files). 
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Figure 4-6. PACiCAGE unitrep Action/Araa Selection Flov/ Chart 
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Figure 4-8. PACKAGE unitrepl Control Flow Chart 
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Figure 4-8. PACKAGE unitrepl Control Flow Chart (cont*d) 
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igure 4-10. PACKAGE unitrep3 Control Flow Chart 



TTPI reason_code IS (no rmal , f i le_erro r) 

— FROCIIU5Z teririndte(redSon : IN reason_code ; 

fllenaire: IN STRING); 

The teririndte procedure is used for two reasons: a file 

error or a norrral prograrr halt. File error terminations 
are used only when external files are mandatory to 
continue program operation and are not available. The 
procedure provides a prom.pt which identifies the required 
file so it may be loaded or copied to the proper disk. 
Normal termination occurs only when the quit action is 
selected. 

— FRCCZrUHF lcad_file( filename: IN STRING); 

— FEOCZrURZ stcre_file(filename: IN STRING); 

These procedures load/store the external UNITRZF data 
structure (UNITxxxA/B) from/to secondary storage (disk 
drives) to/from main memory. 

-- PROCZrURZ load_status; 

— PROCZrURZ store_status ; 

These procedures Icad/store the current program state 
from/to the STATUS disk file. Appropriate statements are 
executed to initialize all required variables for proper 
program operation. 

Z. PROGRAM! OPZRATIVE COMPONENTS 

The operative components of the program are organized 
according to the basic UNITREP situations as defined in 
Chapter III. They are responsible for excecuting the 

operator selected action for the particular area data. To 



rraintain uniforn’ity, cotrrron constructs were applied in the 
processing of these actions. However, each area also has 
unique requireirents . "hese specific points of interest will 
be discussed. 

1. CofTiron flsments 

There are basic concepts for which the 

irrpleirentation is siirilar, if not identical, for all 
packages. The general interface to an area package is 
PEOCirUPS process__(ari;a narre). 'Althin this subprograr only 
those statements recu Ired to support the opera tor selected 
action are executed. An IP-ILSIF. . .ILSIF-ELSI-EM IF 
construct, identical in structure to that of the program 
control components, is used. A suirirar*y of the these 

operations follows. 

— act ion_i s { neww ) : Resets all flags used to indicate a data 
set or field has been mocified, deletes from the data 
structure all items tagged for deletion and resets the 
content of any data items which are dependent on the 
report occurence (e.g. message serial, precedence, date- 
time group). 

— actlon_i s (1 og) ; Deletes any free text f.AifP) disk files 
created during the generation of the report. 

— action_is( print ) , act ion_i s ( draft ) , act ion_i s( veri fy ) : 

For each data set in the area a check is made, following 

the decision tree of Figure 4-5, to determine if the data 
set is to be printed. The decision tree is implem'ented by 
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three fvncticns: PACJAJi ■urglohal, FUNCTICN requi red. orir. t 

is used fcr sets which can net be -deleted; PACSAGi;’ urair, 
JUNCTIONS p r in t_ vi th . de le te and pr in c . wc_ de le te are used for 
sets which may te deleted. If the set is to te printed the 
proper format is provided. If amplification conments fcr the 
set exist they are printed irmedia tely fcllowinp the set 



’PACcAC-J urslotal, FPCCZIl’r.I pr in t_ comrr-en t : . V/hen requested, 
draft information is provided (PACA.iGZ urglcbal, PHOCJdLRI 



draf t_ aid j . 

Operations fcr actions 'erase' and 'quit' are executed in 
the control packases. .“^cdi f ica ticn actions are customize'^ to 
the particular area and are discussed next. 

2. C-enfral i^cd if icaticn C ensp ru.<'.t s 

h‘cd if i ca t i on is the only action which requires 
considerable operator inputs, as the desired output of the 
system is an error free messce.e. man,/ of the statements are 
"oncerned with insuring that data entered is valid. Zach 
area mod if i f i ca ti on section is divided into one or more 
subprograms which process the information fcr a specific 
area display. The displays are directly aligned to the draft 
document the system generates. The ccm.mon elements for a 
display mclificaticn subprogram are: 

— PFCCZrUPZ ( area/subarea )_mask; 

This procedure generates the particular area/subarea 
screen display. This display consists of all cata sets or 
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inforiration ileirs for the area/subarea. Corrrron eierrents 
for the screen display are: 

rata Set Access Point [ '( )' j: lach ^ata set or 
information item has an access point to which the cursor 
positions automatically . Data set modification procaeds 
in sequence from the top of the display to the bottom. 
The operator enters one of a defined set of access codes 
(keyboard characters). 

lata Set Name; This is the plain language expansion for 
the data set identifier (e.g. 'Pnysician Status' for the 
Mine data set). 

lata Set Fields ; Each field of the data set is annotated 
with its plain language meaning. The field may consist of 

a series of dashes (' ... ') of the assigned maximum 

field length, a template (e.g. 'ddhhmmZMMMyy for date- 
time groups) or ,for limited selections, e series of 
alternate selection points L'( )' or labeled with 
the corresponding data field values. --- On Screen 
Prompts: An abbreviated table of the valid access codes 
allowed for. the display. 

PROCiruPI f ill_(area/subarea) [_maskj ,* 

This procedure fills in the corresponding area/subarea 
display. All data fields are annotated with the current 
content of the data structure for that data set. 
Alternate selection points are marked as '(!)'. Items 
changed for the pending report are marked with a next 
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to the access point. Items to be reported as deleted are 
marked with a 'D' next to the access point. If a free 
text set (AMPN) has "been created for the data set an ' A' 
is marked next to the sets apply only to data 

sets which have been changed). 

Cnee the fill subprogram has been executed the system is 
ready to process the operator modifications to tne current 
data structure. The cursor automatically positions to the 
access point of the first data set of the display. Each data 
set is processed through a LOOP and enclosed CASE construct. 
The loop is labeled 'modify_ (data set identifier):'. The 
pr-ogram waits for the operator to enter the access coce and 
then executes the statements required: 

— space or carriage return: Access to this data set is not 

desired. Position the cursor to the next data set. 

— '1' or tab: This code allows further access to the data 

fields or information items within the data set. If the 
access point is for a data set the cursor is positioned 
to modify the required data fields. Data field entries 
are checked to insure they properly correspond to the 
data field items (e.g. numerics only, date-time groups, 
free text, valid tabularized codes). Improper input 
generates an error message. Errors are required to be 
corrected before proceeding with the modification. If the 
access point, is for an information item with other 
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subdivisions, further dccess is granted to select tne 
coirponents of the iteir which are to be irodified. 

'C': This code allows access to a data field for change 
purposes. It is used for data sets which are coirponents 
of an inforiration iteir accessed by an 'J' which ray also 
be deleted. A check is first irade to insure the set has 
not been marked for deletion. If data change is allovec, 
similar operations to insure correctness of data input 
are performed. 

'L': This code marks a set to be reported as deleted. A 
check is first made to insure the set has not teen 
changed as deletions apply only to previously transmitted 
data sets. 

'R ' : This code allows the operator to reset a deletion 
flag if the set has been marked for deletion incorrectly. 
'A': This code allows the operator to create a free text 
(AMPN) set to provide amplifying comments to the data 
set. As amplification applies only to a data set which 
has been changed a check is made to insure this. 

This code will permit accessing cf EILP information, 
if it exists, for the data set through PACKAGI urglobal, 
PROCIEDEE help. If a corresponding look-up table is 
available for a data field item that option is also 
provided through PACKAGE urglobal, PRCCECURE view_table . 
other inputs: All other operator inputs are rejected with 
an error message to reselect. 
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The enciosed loop structure for the case staterrent allows 
for multiple operator actions on the same data set without 
the necessity cf repositioning the cursor manually (e.g. a 
HELP access followed by a change access 'a' or 'C' and 
modification of information, followed ty an amiplif lea tio n 
access '1']. The cursor is positioned to the next data set 
access point only when the user has indicated that access to 
the current data set is no longer desired (by space or 
carriage return) . 

When all data sets for the display have been 
sequentially processed the operator is given the option to 
reselect the current display (e.g. if an error has been 
made) or to continue on to the next display. 

Local information is grouped in three displays: 
Infrequently Changed Items (Figure A-€ ) , h!essage Information 
(Figure A~7) and Miscellaneous Items (Figure A-9). Within 
the Miscellaneous Information the Operation (OPIP) and 
Exercise (HER) sets are m.utualiy exclusive. This exclusion 
is enforced by an IF-ELS IF-ELSE-ENC IF construct to 
automatically position the cursor to only valid access 
points depending on the current data. Position (POSIT) is an 
example of a set which is partially dependent on unit type, 
required by ships and submarines but only when changed for 
other units. The IN operation on the enumeration type 
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'’unit_type' is used to control autorratic selection. An 
additional check is irade to deteririne if the unit is 
'EXEMPT' from reporting position. The Declassification 
(DCIAS) set is dependent on tressage classification. Again 
the access point is controlled by an IE IK construct. 

4. Adrrini stra tiye Information luradminj 

The ADMI N ISTATIVE Inforiration consists of a single 
display (Eigure A-10). The Administrative sets are not 
subject to deletion. Within the display only the Physician 
Status (MEDIC) set is dependent (on unit_type). Access to 
selection is controlled by by ar lE-EISE-END IE construct. 
The unit activity code (ACTIV) is cross checked [Pef. 10; 
Table 3-6] . 

Air Information iurair_i. urairlj. urair2j, urair3) 

As opposed to the LOCAL and ADMINISTRATIVE 
Situations, the AIRCRAFT and CREWS STATUS data sets may be 
submitted a number of different times depending on the 
aircraft type and location. Additionally, they may be 
deleted. The variable number of sets was discussed earlier 
in this chapter in relation to the data structure. All 
actions other than modify are processed in PACKAGE urair. 
The modification of air information is accomplished by the 
other three packages. Three displays are used: 

— Authorizations (Eigure A-11) details the aircraft type, 
aircraft and crews authorized and the number of different 
locations at which the aircraft are deployed. 
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— Location (Figure A-12) lists the locations at which the 
type aircraft are deployed. 

— Status (Figure A-13) lists the aircraft, crews and 
reconnaissance capabilities of the particular type 
aircraft at the selected location. 

Access to d particular type of aircraft listed on the 
Authorization page is granted ty an '1/ . A change to the 
aircraft type is permitted by the 'C' access code (used for 
error correction only). The aircraft type Is crosii checked 
[Ref. 1{5 : Table B-2] . Modifications for that type aircraft 
are allowed to the Aircraft and Crews Authorizations by a 
'C', 'E'-'R', and 'A'. Display of the locations is granted 

by an 'I', Cn the Location page a pseudonym, FOMEPLATF, is 
used to denote the location as reported in the rosition 
(POSIT) set. Within the Status page all status inforrration 
for the location may be deleted at the location access point 
or items may be deleted, changed or amplified individually. 
Component fields of both the aircraft status (AIRSTAT) and 
crews status fCREWSTAT) are sum/total checked (Possessed := 
FMC+PMC+NM C , Formed >= Ready). Reconnaissance Capabilities 
are cross checked [Ref. 10: Taole 3-3]. As the entire recon- 
naissance capability (R5CCN) set must be reported whenever 
changed, individual data field modiflfication (addition or 
removal) is permitted. 

A degree of flexibility is built into the system by 
using a display format which is based on the maximum 
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aircraft types/locatioas declared in the da ta structure 
definition. This will allow a maximum of seven aircraft 
types and seven different locations for each type without 
the necessity of changing the screen displays. It should be 
noted that current memory size (64K) limits these values to 
a maximum of four and four respectively. However a different 
combination of types/locations would be permissible if the 
present limitation (approximately 3K) for air date was not 
exceeded (e.g. 2 types/7 locations, 6 types/2 locations, 
etc . ) . 



G. MSCIILANICUS 

PACEAGIs initialA and intialB are used to set the 
workfile (UNIT000A, UNIT000I), the program status file 

(STATUS) and the serial/date-time group cross reference file 
(CPCSSPI?) for initial program operation. 'They would net be 
required at the unit level as these files would be 

distributed on the program master disk. The status file is 
set for normal system operations. The workfile is set as -* 
Message Precedence - Priority 

Message Classification - Confidential 
UNITPIF serial - 001 

ACTIV - OP (General Operations) 

Mine - 0N3CARD 

PIPCPG - CNO 

VEEIPY - VALir 
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V. CCNCLUSICNS 



Lltrit(?d testing of the RCS UMTREP SUBSYSTEM was 
conducted at the Naval Postgraduate School. Test 
participants were of the mid-level officer grades (0-3/C-4) 
normally responsible for the drafting of the UNITREP. The 
test consisted of simple data entry from the drafting form 
and real-time report generation during which the test 
participants used the built-in help facilities without 
referencing the draft document. Seven simulated reports were 
generated ty each participant during two terminal sessions. 
System familiarization ‘required approximately forty five 
minutes. Refamiliarization time was minimal. The 
participants were required to fill in the system-provided 
draft form for the first report after which the drafting was 
optional. As experience with the system was gained the 
participants tended more towards real-time report 
generation, forgoing use of the draft document. Simple data 
entry after the drafting of the report required 
approximately fifteen minutes. Real-time report generation 
required approximately thirty five minutes. No prem'ature 
terminations were observed during the tests. 

Cue to program modular! za ti on , disk access time (during 
which the operator must wait) is sizable. Each module 
requires approximately one minute to load into main memory. 
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Thus, four minutes during each mod i f icc.t ion cycle are 
operator 'dead time'. Printing a .Tessage requires two 
minutes; the draft document requires five minutes. 

Several participant suggestions were incorporated during 
the test period (e.g. the addition of the to the screen 

display to note an item change). Modifications were easily 
accomplished largely due to the uniformity used in code 
expressions and the localization of the procedures. No 
attempt was made to optimize the current UNITRI? 

implementation. There remain items which, if revised, would 
provide more efficient operation or clearer uniformity (e.g. 
the use of a common taole comparison procedure). Usi’^g the 
techniques developed in Chapter III it shou.d he possible to 
implement the remainder of the UNITRSP within a short period 
of time and apply a similar methodology to the other NPS 
reports. However, the limitations of JAKUS/ADA (version 
1.4.5) would restrict the program to multiple dish 
operations. 

Many additional areas for Increasing the system's 
flexibility and/or utility remain to be explored: 

— The creation of a module dedicated to the preparation of 
non-form at t ed messages. The module should integrate the 
heading and trailing items of a Joint Messageform (TE- 
173), provide for a page printer, page alignment 
procedures and incorporate a full screen text editor. 
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Portions of the rrodule should be accessible to the 30S 
for preparation of the AMPN and RMKS free text data sets 
and for the printing of the rressage. 

ixarrination of alternate trethods of storing the prograrr 
generated data. The use of a data structure based upon 
static record types is inflexible. A better n^ethod would 
seeir to be writing the data to a disk file in the 
rressage forrrat as it appears on the printed rressage copy. 
Iiarrination of the feasibility of transfering the report 
information to the message com.rrunicat ion center via a 
network systerr or via disk transfer. Sither mediurr is 
capable of compatibility with communications equipment. A 
special purpose module could ce developed for the message 
center to incorporate items required for broadcast I'e.g. 
prosigns, serialization, circuit instructions, conversion 
to transmission code, special formatting req uirerrsn ts ) . 
The necessity of punching a paper tape or retyping the 
information on a video display terminal (as is the 
current practice) would be eliminated as would the 
possibility of introducing errors. 

Creation of a master design program to assist in the 
development of programs of this type. Since many of the 
steps involved in customizing a program for a particular 
report are redundant, it should be feasible to develop a 
master program to assist in generating the necessary 
code. This program would require such basic information 
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as the data set identifier, the component fields, the 
type and specifications of data entered in each field 
(e.g. numeric, alphanumeric, limited selections, table 
look-up, field length) and the more complex dependencies 
between data sets. One of the most time consuming aspects 
of developing the UNITH2P SUESYSTIM was adjusting screen 
formats for the access points, data sets names and the 
data set components, and maintaining proper cursor 
positioning when executing fill and modification 
subprograms for the particular display. An interactive 
facility could he developed to integrate the formulation 
of a screen display with the required system operations 
on the data set . 

The UNITHEP itself proved to he a pivotal message. It's 
content, especially in the area of Unit Combat Readiness 
Assessment, is highly dependent on information available and 
maintained by other sources (e.g. Personnel - squadron 
roster, CFNAVNCTE 1000/2; r'ajor Equipment - CASREPs ; 
Aircraft Status - VIDS/MAI system). While it is simple 
enough to create a program to check format and valid data 



type entry. 


to develop 


a system to sift 


the 


raw 


data 


necessary to 


calculate a 


unit's readiness 


is 


much 


more 


complex. If 


a desire of 


the CCRS program 


is 


to 


remove 



subjective human appraisal from the assessent of unit 
readiness it will be necessary to integrate these other 
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sources at the unit level and deterrrine the raw data to be 
used in this calculation. Such a systerr would allow event 
driven automatic reporting but would be extremely 
sophisticated (and costly). 

Regardless of the level .of detail desired, if the ROS is 
to have widespread distribution, hcrdware and software 
corriTonal ity will be required to reduce life cycle costs. It 
would not be cost effective to rraintain a software library 
of similar programs for each make and model of mi cro comouter 
in the fleet. In addition to the software support aspects, 
the cost of the hardware and its maintenance could be 

reduced through the defense acquisition process. 

♦ 

Comtrercial microcomputers may not have long lifetimes in 
comparison to their military counterparts, but their economy 
and universal utility more than counterbalances this. The 
shorter service life may in fact be a benefit as commercial 
equipment will always be at or near the state of the art 
and at a competitive price. Ivery effort should be made to 
procure, for each unit, a general purpose microcomputer 
system and the software tools to effectively make use of it. 
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APPENDIX A 



7NITREP OPERATCR f'ANyAL 

The PCS UNIT3EP :5U3STSTZI^ provides the tressage orignator 
a tool for the drafting, preparation and review of UNITREP 
rressages. The ROS UNITREP Operator Manual is subdivided as: 

I. BACKGROUND 

II. GENERAL INSTALLATION PROCEDURES 

III. GENERAL PROGRAM OPERATION 

IV. PROGRAM USAGE 

V. SUPPORTED UNITREP REPORTING SITUATIONS 
A. LOCAL INFORMATION 

E. AIM IN IS THAT IV E STATUS 
C. AIRCRAFT AND CRE'i^S STATUS 



I. BACKGROUNL 

The National Comrand Authority and the Joint Chiefs of 
Staff require large quantities of detailed info rtr.ation in 
order to maintain the correct status of forces throughout 
the world. Units are required to subirit certain reports 
(e.g. CASREP, UNITREP and MOVEREP), normally via message, to 
keep their superiors informed of the organization location 
and status. This information is processed and made available 
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to necessary con-rtancs through the World Wide .Military 



Conrrrand and Control Systerr (WWyCCS). The Navy intends to 
consolidate operational reports under the proposed 

CPNAVINSi 3503.x series: Navy Reporting Structure (NRS) 

Operational Reports. The instruction establishes 
requirerent s for reports, d<ata set fcrratting and 
definitions that are corrnatible rfith other US/ALLISI 

agencies. 

Message reports are norrraliy processed by a computer at 
one of four WWMCCS sites. Such automated handling is 
extremely sensitive to strict formatting requirements in 
order to correctly interpet received message data. Recent 
studies have shown an increasing trend in format and data 
error rates as a result of stricter formatting requirements 
in current reports. This results in delays as the 

information is queued to an operator for manual error 
correction. Greater error rates may be anticipated wnen the 
proposed instruction is released unless a means of assisting 
the originator in their preparation is employed. 

The concept behind the Report Origination System (ROS) 
is to provide the message originator a microcomputer based 
aid for the preparation of highly formatted reports. 
Ultimately the RCS SYSTIh will Integrate modules for all the 
NRS reports: CASREP, STAPFREP, Ff^SREF, UMTRFP, SURFNOVE and 
SUBN-OVE. The ROS UNITREP SUESYSTIh, version 1.1, is a 
partial implementation of this concept, using the Ada 
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prcgrairtr ing langudge, directed at supporting UNITI-ilP report 
subirlssion of Adrrinistrative Status and Aircraft and Crews 
Status Reports (CPKAVINST 3503. £ sections 4 and 6) . Tiie 
SUBSTSTEf' is designed to assist three levels in the report 
generation cycle; the systerr operator, the resscge drafter 
and the rressage releaser. 

To assist the system operator the program is 'user 
friendly', navigating through the report by a corr oination of 
screen prompts, menu selection and error rressages. The data 
set formats are presented in an understandable manner with 
access limited to those that apply for the type message. All 
information is verified as it is entered, which eliminates 
data inputs obviously in error (e.g. alphabetic characters 
where numiters are required, incorrect date-time groups. 
Invalid entry from a table). The drafting document which the 
system provides is closely aligned to the display 
screens. A message formatted ou tpu t copy of the report is 
provided in addition to the ability to reprocuce printed 
copies of past messages. 

The drafting document provides the drafter with a quick 
means of determining what is currently reportec, what is 
required to be reported and what the source for that 
information is. A 'fill in the blank' format is used for 
each data item. The SUBSYSTEM provides the actual 
formatting. When required to perform a feedback verification 
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of Information held 'by the W'a'MCCS database, the SUBSISTEf" 
can autorratically provide <all data submitted as of a 
particular serial report. The drafter is provided on Line 
'HELP' information to aid in real-time report preparation if 
so desired. limited information included in the governing 
instruction (e.g. look-up tables, reporting requirements) is 
made available on screen. 

?or the releaser there exists an option to provide a 
draft document which consists of all data as is currently 
reported or that will be reported with the message. 
The data is logically grouped with reporting requirements 
noted and an explanation of any coded items 'e.g. unit 
activity code, reconnaissance capability). 

II. GEKEHAL INSTALLATION PHOCELUPIS 
The HCS UNITHEP SUBSYSTEM, Version 1.1, is designed to 
run on a ZS2/8280 based 8-bit microcomputer system with 645 
of main memory and dual single-sided single-density floppy 
disk drives running under ligital Research's CF/M system 
(Version 2.21). The current program is customized for an 
Altos Computer System ACS 8200-1 with a lATAMELIA ELITE 2502 
keyboard and terminal. A basic understanding of 
microcomputer system operation is advisable. 

The following steps describe the procedures to be 
followed upon INITIAL RECEIPT of the program: 

1) Copy the UNITREP master disk to a reformatted disk 



108 



and latel ii 'UNITRZP MASTIR'. Store the raster disA in a 
safe location following norral safety procedures in the 
handling of floppy disks. 

2) As the F.OS UNITREP prograr rust run on a CP/!^ based 
syster, it is necessary to copy your version of CP/^! to the 
first two tracks of the reforred UNITREP MASTER disk by 
issuing the SYSGEN corrand. It is also necessary to copy the 
basic Input/Output System for peripheral control, 
CBICS64.CCM, to 'UNITREP MASTER' from any existing disk. 

3) label another reformatted disk 'UNITREP PILES xxx- 
yyy ' . Place the serial number of the UNITREP you intend to 

generate first in the xxx slot. Each disk will hold appro- 

♦ 

xirately 25 UNITREP messages. 

4) Insert the UNITREP MASTER disk in the systems A: 
drive. Insert the UNITREP PILES disk in the 3: drive. 

5) Observe that the rea.uirel files are on the UNITREP 
master disk by typing the directory corranc, HR. The 
required files are: 



UNITREF.COM 


UNITREPl .COM 


UNITREP2.COM 


UNITREF3.COM 


UNIT00OA 


UNIT000E 


STATUS 




ACTION 


INFO 


EREMSG 


CROSSREP 


TABLE. E-2 


TABLE. B-3 


TABLE. 3-6 




LRAPT.TET 


EELP.TXT 







The operator is not required to know the function of each file 
but should be aware that these files are necessary to the 
proper operation of the prograr. 
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c) Copy the two files UNIT000A and UNIT0003 to the 
UNITR3? FIIZS disk on the I: drive. The purpose of these 
files will he explained later. (This should always be done 
when 5witcbin,5 in a new UNITREP PILES disk) 

III. GENERAL PROGRAM CPEHATION 
Since the final output of the HOS UNITREP SUBSYSTEM is a 
formatted, hard copy message, only cnaracters that are 
compatible with both Optical Character Reader (OCR) and 
EAUrOT (a message transmission code) are accepted from the 
keyboard. The operator is automa tically restricted to these 
type of characters. If the operator attempts to put in any 
unacceptable characters an aural tone will sound. Lowercase 
letters are automatically converted to uppercase. 

Program operation is controlled through a combination of 
menus and screen 'access points', b'enus require tne operator 
to select one of the displayed options. Access points are 

screen locations to which the cursor is automatically 
positioned (noted by the symbol '( )' ). Access points act 
as guards to a particular data set or information item. A 
set of valid access codes (e.g. 'C' to change, for help) 

corresponds to each access point and is displayed at the 
bottom of the display. The access codes determine the 
operations required. If an invalid key is selected the 
operator is notified by an aural tone and when appropriate, 
an error message denoting the correct key to depress. 
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Throughout the prograr whenever an <X> is indicated the 
'1' or the TAB key iray he depressed. Whenever an <ENTZR> is 
indicated the CARRIAGE RETURN cr SPACE BAR rray be depressed. 

A prerrature ABORT of the prograir is available by 
depressing the CONTROL ond 'C' keys sirrultaaecusly (CTPL-C). 

note 

A user ccrrrandea abort will rest likely result in the loss 
of all data generated since; the last entry to the iTain 
(ACTION) nrenu . 

s? SJC :)C sp j;; V 5? J)t 

Jor Tany ddta iteTs a limited amount of on line HELP 
information is available. This is obtained by typing a 'l' 
at the data set access point . If EEL? is not availaole an 
aural tone will sound. 

A brief discussion of tne inner operations of the 
SUESYSTEN is required to acquaint the operator with some 
terms frequently used In the program displays. The 
SURSYSTEN's Current Wcrkfile are the files UNIT002A and 
UNIT000B. These tvo files hold all the infomation on the 
unit's status as of the current moment. Once a message has 
been prepared AMD logged aS transmitted, the SUBSYSTEM 
creates files UNITxxrA and UNITxxt 3 on the 3: disk (UMTREF 
PILES), where xxx is the serial number for that report. When 
the system is asked to retrieve old information it will 
search the 3: disk for the required files. If they are not 

present the operator will be notified. 
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IV. PROGHAf" LiSAGI 



To execute the UNITR5P prograrr type 'UN'ITRIP'. 

The first screen to appear at the start of the terminal 
session is the SIGM ON display (ligure A-i 1 which gives the 
version of the program and the status of the current message 
in the workfile. 

A. PROGRAM ACTIONS 

Following the SIGN ON display is the ACTION MENU 
fPigure A-2). This display offers the operator the various 
program options. The prompt area provides additional 
information to the operator to support the requs'sted action. 
Error messages are displayed in the message aree. The ACTION 
MENU will always he redisplayed with the required action 
has been completed. A brief discussion of the purpose and 
prompts for each of the desired actions follows.. 

elill document 

This option allows tne operator tc prepare a draft 
document for assistance in the preparation of a UNITRFP or 
for review of the realeasing authority. The draft document 
consists of all the information as currently reported hy the 
unit, an explanation of any coded entries, the fields and 
limited explanations/sources for each data set. The draft 
document closely follows the screens presented in the ROS 
UNITRF? SYSTEM. The draft document may he used as a working 
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ACTION MENU 
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copy by irarkiag the appropriate areas for change and filling 
in the corresponding data fields. 

The operator is provided d prorrpt (ligure A-3a) if the 
current vorkfile has not been logged as transmitted (action 
-5-). The first selection allows the operator to obtain the 
draft copy for the releaser after all data provided oy the 
drafter has been entered. The second selection permits the 
creation of another drafting document for the current 
report. If the current workfile has already been transmitted 
the last reported status as reflected in the SUBSYSTEM will 
provide^ the draft information without prompting. 

The: next prompt reminds the operator that he must select 
the Uf ITHEF SITUATION for which draft information is 
required. As discussed in OPNAVINST 3502.5 paragraph 1.5, a 
normal UNITHE? message is concerned only with a small subset 
of the- possible UNITREP data sets. Therefore data sets are 
grouped into subsets called SITUATIONS. In addition to the 
situations established by the instruction (e.g. Personnel 
Status, Major Equipment Status), Local Information and Type 
Corander Peports areas have also been identified to group 
data sets. The UNITREP SITUATION MENU (Figure A-4) is then 
displayed. The operator selects those situations for which 
drafting information is desired. LOCAL Information (message 
addressees, classification, priority, etc.) will always be 
provided. All other SITUATIONS must be requested. 

A sample draft document is shewn in enclosure A-1. 
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The Current Workfile has not been t ran srri t ted . To you want 
( ) Eraft of the Current Workfile 
( ) Draft of the last submitted UNTTRIP 
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Figure A-3. ROS UNITREP User Prompts (cont'd) 
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2* New UNITREP 

Once a UNITREP has been logged as transmitted 
(action -5-) or erased (action -€-) this selection must be 
made to reset the current workfile for modification (recall 
that ALL UNITREP information for the unit is maintained in 
files UNITZO0A and UNIT0OB3). Any attempt to modify (action 
-3-) a transmitted message raises an error which notifies of 
the proper sequence for continuing. 

3. Isi 2 E 6 Z!:^E^iXz/Add Lata to the Fending UNITREP 

This option allows access to the SITUATION t^ENU and 
then to the data set screens. The UNITREP SITUATION MENU 
(Figure A-4) is first displayed and the operator is 
prompted to select those areas which the pending message 
will affect. The local Information area (-0-) will always be 
entered, regardless of whether or not it was selected, on 
the first modification of a new message. This is to set such 
items as the classification and declassification. All other 
SITUATIONS must be selected by the operator. The operator 
may continue to modify the message by repeated selection of 
action -3- until the message has been logged as 
transmitted (action 

-• 2 Tint Message Format Hard Copy of a UNITREP 

This action is selected when the operator requires 
the completed message as it is to be formatted for 
review/t ransmisslon , or for recall of past messages. 
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Two options are offered by prompt (Figure A-31): Pending 
or Cld. When an Old UNITREP Is selected It will not provide 
arrpllf ication (Af^PN) or remarks (RMKS) sets as these free 
text fields were purged from the SUBSYSTEt^ for rremory 
storage reasons when the message was logged as transmitted 
(action -d- ) . 

The operator is also given a print format option (Figure 
A-3c). OCR format gives 19 lines per page double spaced with 



a standard 


left 


margin 


and maximum. 


line length of 


es 


characters . 


Addresses are 


indented to 


tab 25; Fy, TC 


and 


INFO are 


printed 


for 


d emonstration 


purposes. End 


of 



transmission, 'NNNN', is entered automatically at the end of 
the message. Standard Naval f^essage (Fleet Broadcast) format 
is 42 lines per the page single spaced and a maximum line 
length of €9. Addresses are indented to tab 8 preceeded by 
FM, TO and INFO as appropriate. End of transmission, 'BT', 
is entered where required. 

Issuing UNITREP as Transmitted 
This action is to be selected once a message has 
been approved for transmittal AN! EFLEASFD. Units assigning 
their own date-time groups should insure that a proof copy 
of the message has been obtained since logging a message as 
transmitted purges all of the amplification (At^PN) and 
remarks (RPKS) data sets from the SUESYSTEf^. data structure. 
A prompt (Figure A-3d) is displayed and the operator enters 
the date-time group. 
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MCTZ 

Proirpt entering of the t ronsir.i t tal date-tirre group is 
required as irodif ication is allowed UNTIL TEI USIP. has 
selected this action. This coul-a cause the data for the 
SUBSYSTil^ to he incorrect if subsequent trodi f ica ti ons 
are rrade after the actual transuittal but prior to the 
logging as transmitted. 

« s? r? ?! 3{! » 5? 



Il§§§ 

This action allows the operator to erase the pending 
UNITHTP and return the SUESYiiTIY to the information state 
that existed as of the last transmitted UNITPI?. The 
operator is prompted (Yigure A-2e) to ensure an erase has 
been requested. Once a UNITPIP has been logged as 
transmitted it may not be erased. 



The SUBSYSTEM erases a file by copying the last file 
logged as transmitted. It is recommended that when 
switching UNITPE? fILI disks the LAST transmitted file, 
IJNITxxzA and UNITxxxB, wnere xxx is the LAST transmitted 
serial number, be copied t: the new UMTPIP JILZ disk. 
The old disk should then be appropriately annotated for 
the first file - last file sequence and stored as 
appropriate for its classification. If a file required 
to complete the erase is not present on the B: disk 

drive the program will terminate, notifying the operator 
that the required file must ce copied to the B: disk 

drive. 

Xl 3? ?! ?! ?! ?! ?! V 5? ?! 5? ?! 

ication Summary 

’When required by higher authority to perform a 
feedback verification (OPNAVINST 3503.5, paragraph 4.9) , 

this option allows the operator to enter an as-of 
verification serial (Figure A-3f). All data in the SUBSYSTEM 
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as of ihaT: serial nuirber will ce listed in rressdge forrrat to 
coirpare with the verification copy. Future versions will 
rrost likely change this to a date-tirre group under full NP.S . 

a. 5uit 

When the operator has oorrpleted the terninal session 
this action is used to terrrindte progran’ execution. All 
modifications made will he preserved in the workfile. 
Therefore an entire generation cycle (draft, prepare, enter, 
review) need not be completed Ir. a single setting. This 
frees the microcomputer system for other uses. 

V. UMTP.IF SITUATIONS 

As described in the proposed UMTSi? instruction 
(OFNAVINST 3503.5 paragraph 1.5) certain changes in an 

organization's status red.uire a UNITRIP, The ROS UMITRIF 

# 

SUISYSTIN' is organized around logical groupings based on 
these changes. Whenever the operator selects to modify 
(action -2-) or draft (action -1-) the UNITRIP SITUATION 
screen (Jlgure A-4) is displayed. The operator selects those 
situations that are required. Once the selection is corrplete 
the program! executes those areas. 

lach situation or area is divided into one or more 
screen displays. The area and subarea are noted near the top 
of the screen. Each individual inforiration iterr or data set 
Is displayed in plain engllsh and numbered for 
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identification purposes. Modification to the current 

Inforiration is controlled by using access points, '( )', to 

which the cursor dutomatically positions. The operator 

enters an access code (keyboard character) and the 

appropriate action is taken or allowed. Valid access codes 

are displayed on’ each screen and are included for eacn iterr 

in Table A-1. A surrrrary of the valid access code n^eanings: 

'1' or TAB: grant access to the data fields for 

modification CE grant access to additional sub-access 
points which guard the actual data fields. 

SPACI or CAERIAGZ EITUEN : no access required. go to next 

access/sut-access point. 

'Z': allow access to data field(s) for change purposes. 

'D': mark this set for deletion. 

'P/ ; restore a set previously marked for deletion. 

'A': amplif ication comments to be created (Jigure A-5) . 

EILr information requested. 

any other character: incorrect input, operator notified oy 

an error message and/or aural tone. 

All data item modifications are brought to the 

operator's attention by the use of symbols next to the 

appropriate access point (s) of the display. When a data item 

has been changed it will be marked with an ’When a data 

item has teen tagged for deleteticn it will be marked with a 

'E' (Use of the 'E' access code removes this 'D'). If 

amplification comments have been created an 'A' will be 

marked next to the This allows the operator to generate 

the report over a period of time without the difficulty 
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Table A-1. Eata Iierr - Valid Access Code Correspondence 
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Table A- 1 . Tala Tt.pir - Valid Access Code Corresoondence (cont'd) 
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of renieintering what has or has act been changed. All syrrbols 
are removed when a new report is Initiated with the 
exception of items which dre reported continucnsly (e.g. 
OPI? or iXIR when required) . 



-vvis!' not I 

P.OS UKITHIP SU3SISTIN, Version 1.1, implements only the 
LOCAL, ALMINISTHATIVE and AIHCSAPT AND CREWS STATUii 
situations. The operator is notified if a:, unimplemented 
area has been selected. Table f.-c provides a quick data 
set to screen display cross reference. 



A. LOCAL INFCPr.ATION 

Local Information pertains to unit particular items. 

This section is subdivided into three {3} screen displays. 

Infrequently Changed Items, Message Information and 

Miscellaneous. All or part of the inforration in the Local 

area will appear for each message. A description of each 

# 

display follows. 

1- I-CCAL rINIH|CU|NTLY CHANGED ITEMS- lEigure A^fl 
These items are normally set when the HOS UNITRZP 
SUBSYSTEM is initially received. After this only item -4- 
(Eeeder Report) will require modification. 

-1- UNIT TYPE: Self explanatory. Used to determine type 

unique reporting requirements (e.g. MEDIC for 
ships/sutmarines only). 

-2- UNIT lEINTIEICATION : Used in the creation of MSGID and 

UNITII data sets (data field Message Criginator). 
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Tdtle i:-2. Edtd Set - Screen Eispldy Correspondence 



CATA SIT 


SCPIIN 


iTir 


ACHV 


Adn:inlstrati ve 


2 - Activity Code 


AIIAUTP 


Air (autli) 


Aircraft Authorized 


AIPSTAT 


Air (status) 


1 - Aircraft 


AMPN 


ALL 


Airplif ica ticn 


cor^r^ANi 


Adrrinistratlve 


1 - Cottrand Change 


CHI'i^AUTH 


Air (auth) 


Crews Authorized 


CRIB'S TAT 


Air (status) 


2 - Crews 


ECIAS 


Local (rressage) 


4 - E ec la ssifi cation 


EZLITE 


Air (auth) (status) 


delete this iterr. 


IX I?. 


Local ((rise) 


Ih - Exercise 


f^.mc 


Adrrlnistrat ive 


3 - Physician Status 


r^SGIE 


Local (infrequent) 


4 - Feeder 


CPER 


Local (.Tiisc) 


la - Operation 


POSIT 


Local (rrisc) 


2 - Position 


PEC ON 


Air (status) 


3 - Peconnai sance 


REPCRG 


Adrrinistratlve 


4 - New Rep Org 


R^'5S 


Local (rrisc) 


3 - Hetrarks 


UN IT IE 


Local (infrequent) 


4 - Feeder 


VIPIFT 


Adrrinistratlve 


S - Verification 
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3- LAST SIHIAL; This item should only be chduged when first 
receiving the ROS UNITRIP SUdSYSTIM to synchronize the 
SUPSYSTEM with the unit's UNITRIP seridl number. A two 
line error message warns the operator not to change this 
value except for this reason. Three possible sitUdtions 
dictate the procedures to be followed: 

a) Newly dctivated unit, first serial 001: No action is 
required as the SUBSYSTir" automatically begins serial 
numbers at 001 . 

b) Reactivated unit: Inter the serial number of the last 
UNITEIP transmitted by the unit (it should have noted 
deactivation ) . Fill in UNITREP entries normally. 

c) Currently active unit: Prior to generating the unit's 
next UNITREP it is necessary to initialize the 
SUISYSTim data structure. This is accomplished by 
simulating the unit's last report as a complete 
complement of data set submissions. 

Inter the unit's last transmitted serial minus 1. 
(e.g. last serial 473 - enter 472). This resets the 
SUBSYSTEM current serial to that of the last 

transmitted serial. CChPLETIIY fill in all 

UNITREP SITUATION'S as they existed as of the last 
serial. When all entries have been confirmed, log the 
message as transmitted (action -£-) with the last 
serial number's date-time group. After Initiating a 
New Report (action -2-) the SUBSYSTEM and unit 
serials will coincide. 

4- MESSAGE TC 31 PREPARIE AS A FEEriR REPORT: This item 

determines if a message should be prepared with a MSGII 
or UNITir data set and, as explained in OPNAVINST 3503.5 
paragraph 2.5, depends on whether the unit is the 
releasing authority or if the message is an input to 
another unit which will release it in a combined report. 
If set to N (NO), a normal message will be prepared with 
the MSGID set. If set to Y (YES), All addresses, message 
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info rrration and the OPZE or ZXER i;et will be printed on 
cover sheet(s) for review of the ti'ansmitting unit. The 
following page will begin with the UMTIE set and 
contain the unit particular items. The RM£S and ECLAS 
sets will listed on the last page. 

2. ICCAL rr^ISSAGE INIORNATIC?.; Az2l 

This area is concernec with message addresses, 
classification, declassification and priority. A maximum of 
fifteen flS) ACTION and fifteen (15) INFO addressees are 
processed ly the display of Figure A-8. HELP is avdildfcle to 
determine ACTION and INFO addressees once ACTION/INFO has 
been selected. If a message is classified, declassification 
instructions are required to continue. 

3. ICCAL rt:lSC|LLAN|0US2 Uigur e Arii 

These data sets are recurrent for any UNITREP situation 
repo r ted . 

-1- Operation/Exercise: This creates the OPER or EXER set as 
required. Only an Operation CR an Exercise can te in 
progress. This remains fixed until changed by a 
subsequent UNITREP. NO amplif ication (APPN) is allowed. 
- 2 - Position: This creates the POSIT set. If the unit is a 

ship or submarine, the program automatically goes to 
this field. All other units must select this to indicate 
a change in position. If the position is 'EXEN’PT' no 
date-time group is required. 



131 



51 


1 

1 




1 

1 






CU 


1 

1 




1 

; 






1 




1 




<U ^ 


1 




1 






1 




1 




a (u ^ 


03 


1 




1 




E-« 


1 




1 




a a 


-rH 


1 




1 


?>- 




1 




1 




(D ^ 


TO 


1 




1 




CO 


1 




1 




O 


03 vO 


[ 




1 


rH 




1 




1 




<U p *i-i 


E T3 


1 




1 






1 




1 




a o Jh 


E r-l 


1 




1 


in 




1 


1 


1 




(U « A4 


HH 


1 


u 


1 


fH 


CO 


1 




1 








1 


o 


1 


« 




1 


o 


1 




1 1 


1 1 


1 




1 




3Q 


1 


♦-H 


\ 








1 




\ 


a 




1 


6H 


1 




1 




1 


/\ 


1 


UL 




1 




1 




CO 




1 




1 


•T3 




1 




\ 




1 




1 


N/ 


1 


\n 


CO 


1 


« 


1 








1 

J 




1 


\n 




1 


O 


1 




- — ^ 




1 


m 


1 


V 




1 




1 








m 1 




1 


5- 


(X, 


1 




1 








r; 1 


X 


1 






1 


1— t 


1 








o 1 


03 


1 


-H 


pq 


1 




1 








^ 1 




1 


OO 




1 




1 








^ 1 




1 


(J 




1 


O 


1 








O 1 


C-, 


1 


O 




\ 




1 








^3 1 


O 


1 






\ 


CO 


1 








^ 1 




1 






1 


CO 


1 








^ 1 




1 






\ 




1 








^ 1 


CU 


1 


HM 




1 


i: 


i 








a 1 


a 


1 


pc; 




1 


i 


1 








»— ♦ 1 


■0 


1 


e-* 




1 




1 








1 


p- 


1 


S-i 




1 




I 








rs 1 




1 


:2 




1 




1 








o 1 




I 






1 




1 








1 


/\ 


\ 




CO 


1 




1 








^ 1 


cc; 


1 


CO 




1 




1 








H3 1 




{ 


o 


O 


1 








f— M 




O 1 


EH 


1 






1 








C 10 




j 


Z2L 


1 




« 


1 




o 




o •*-* 




\ 




\ 


* 




1 








•«H ♦-> 


CU 


I 




\ 


c** 




1 








4-» C 




ui i 




\ 


1 




1 




r: 


C 


03 CU 


o 


WO { 




1 






1 




Ul -r-l 


o 


O t/3 TO 


♦-> 03 


03 1 




1 






1 




CU o 


ro 


03 CO 


1 


U 


1 






1 




i/l ir-l 




^ Cm 




o \ 


03 


I 


Pi 




1 




in ^ 


o c: 


O C2 


a P< 


CU 1 


f-H 


j 


P 




1 




cu o 


<x; i-H 


v/^ c O 


03 O 


1 


03 


1 01 


C03 




1 




t-i 




O 


CO &-• 


1 


CO 


1 03 


fH 




1 






X — ^ .< — <. 


03 




1 




1 






1 




T3 




r-i 1 1 


1 1 




o 


\ < 






1 

1 




< — - 


^ — ' 


O 




1 


♦-> 


1 

1 03 






1 




1 




1 






XJ 


1 JXD 






1 














03 


1 03 






I 




1 




1 








1 vn 






1 
















i V) 




o 


1 




V 




.* — » 




- — ^ 


/\ 


1 03 




o 


1 
















\ z: 




1— i 


1 








— • 




■ — ' 


V 


1 





132 



fACTION/iNFOl ArDRESSEES 



Mm 

CQ 

>-* 

CQ 






CQ 

PM 

« 



HD 

CQ 



































CM 


1 




































1 


i/> 
































W 


1 


OJ 
































PH 


1 




































1 


fH 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


\ 


1 


1 


1 


1 


P 


1 


i-H 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


0 


1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


Cm 


1 


a 


1 


1 


( 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


0 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


I 


1 


1 


/\ 


1 


fH 


1 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


4-> 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


V 


1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




I 


p 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


C 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


(U 


1 


fH 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


\ 


1 


1 


cO 


1 


•l-J 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


03 


1 


c 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


M 


1 


0 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


PM 


1 


0 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 




1 


1 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


0 


1 


(h 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




I 


0 


1 


1 


1 


1 


1 


1 


1 


I 


1 


1 


I 


1 


1 


1 


1 




1 


Cm 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


W 


1 


+-> 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


n 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


1-H 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


0 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


i 


1 


1 


1 


QJ 


1 


p. 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


m 


1 




I 

( 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


a 


1 


CiL 


1 


1 


1 


1 


1 


1 


1 


1 


j 


1 


1 


1 


1 


1 


1 


03 


1 


G 


! 


1 


1 


1 


1 


1 


1 


1 


1 


1 


I 




1 


1 


1 


-G 


1 


T— 4 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


i 


1 


1 


1 


0 


1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


! 


1 


1 


1 




! 


Pi 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


j 


1 


0 


1 


<D 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


♦-> 


1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


in 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


! 


1 


1 


1 




1 




1 


1 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


1 


i 


1 


0 


1 


(U 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


i 


1 


] 


1 




1 


x; 


1 


1 


1 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


p> 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


OJ 


I 


crj 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


p 


1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


c 


1 


P. 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




I 


03 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


I 


1 


1 


1 


c 


1 ' — ' 


































0 


1 03 


\ 


1 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


0 


1 OJ 


• 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 P 


V 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


0 


1 ^ 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




1 


OJ 


1 


1 


1 


1 


I 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 




i OJ 


JC 
































/\ 


1 CiC 


































PH 


1 03 


































MN 


1 ^ 




































1 ^ 




































1 cu 


































w 


1 H 


































V 


1 



rO 

rH 

P. 

CO 

tH 

PM 

(U 

o> 

CO 

i/I 

(D 

X? 

X3 

< 

CD 

<u 

CO 

CO 

OJ 

2 : 

PM 

W 

PP 

E-* 



CQ 

O 

• 

CD 

I 

<«; 

cu 

p< 

p 



133 







1 






Ph 




















1 








1 






OJ 


1 


















1 








1 






JD 


1 
















Oh 


1 








1 






E 


1 






1 










hA 


1 








1 






P 


1 






1 










IM 


1 








1 






2: 


1 






1 










W 


1 








I 








1 






1 






>> 






1 








1 






73 


1 






1 






13 >4 




P 


1 








1 






c 


1 






1 






c-« 5: 




0 


1 








1 






rO 


1 






1 






PI 2 : 




Pi 


1 








1 








1 






1 






2 : 






1 








1 








1 






1 






Pi >>3 




/\ 


1 








1 






O 


1 






1 






0 E 




o* 


1 








1 








1 






1 






E 




\/ 


1 




2: 




I 






V 


1 






1 






to XJ 






1 








I 






c 


1 






1 






x: 




m- 


\ 








1 








1 






1 






73 






1 


73 






I 








1 






1 






t3 




Pi 


1 


—1 






1 








1 






1 










f-i 


1 


Pi 






1 






p 


1 






1 










/-H 


1 


cO 


in 




1 






o 


1 






I 










Pi 


1 








I 








1 






! 










E 


! 


P 


>- 




1 






a 


1 






1 












1 








1 






■0 


1 






1 












1 


in 


in 




I 






1 








1 










0 


I 


P 






1 






P. 








1 










4-d 


1 


0 


pq 




1 












OJ 


1 






ID 






1 


cu 






1 












E 


1 






0 




/\ 


1 


G 






1 


1 










ro 


1 






£ 




< 


1 


73 






1 


CO 










a 


; 






0 E 




\/ 


1 


<-H 


CO 




1 














1 






S T3 






1 


rH 






i 


O 










o 


1 


73 




0 73 




•> 


1 


CU 






1 


PM 










iH 


1 


OJ 




h- ? T3 




P> 


1 


0 


P-. 




1 


zz. 










2: 


1 


4-a 




\ 1 




K 


1 


CO 






1 


< 






1 






1 


fO 




0 


PM 


CU 


1 


*iH 






1 


1-^ 






1 




OJ 


\ 


a 




< PI 


0 


2 : 


1 


2 : 






1 


1— 1 






1 




in 


I 






H-l fc 






1 








1 


PM 






1 






\ 


tu 




E 


Ph 


p 


1 








1 


ID 






1 




o 


i 


p 




73 




0 


1 


73 


£- 




1 


in 






\ 




p 


1 


cu 




73 


CO 




1 


0 






1 


1— 1 






! 




OJ 


1 


£-• 






h- » 




1 


0 


►— 1 




1 


2- 






1 




X 


1 






p 


PU 


CU 


1 


PI 






1 


1 


>> 




1 




p*4 


1 


(U 




0 


£h 


0 


1 




:2z 




1 






73 


1 






1 


i/1 








7J 


1 


tP 






1 




> 


Ph 


1 


V 




1 










Pi 


1 


PM 


ZD 




1 




u 


O 


1 


:» 




1 


O 




1 


0 


CO 


1 


PG 






I 




0) 


> 


1 


p 




1 


P 




Eh 1 


\ 


\ 


1 


EH 






1 




73 


cu 


1 


(U 




i 


CU 




Jh 1 


MM 




1 


»-H 


in 




1 




a 


t3 


1 






1 


X 




2 : 1 


2 : 


« 


1 








I 




:=> 


O 


1 


P 




1 


w 




PM i 


0 


MM 


1 


ZD 


o 




1 






CJ 


1 


ZD 




1 






X 1 


2 : 




1 








1 




c 




1 






1 


a 




PM 1 




2 : 


1 


in 


P=i 




I 




o 


a 


1 


0) 




1 


o 




1 




MM 


1 


ID 






I 






o 


1 


in 




1 


iH 


c 


P 1 


• • 


V 


1 








I 




4-> 




1 






1 




o 


0 1 






1 








! 




fO 


4-> 


1 


o 




1 


(U 


iH 


— 1 






1 


• 






I 






T3 


1 


p 




1 


p 


4^ 


1 


p 


♦-> 


1 


CJ> 






1 




OJ 


P 


1 


cu 




1 


cu 




G 1 


73 


0 


\ 


1 






1 




Pi OJ 


1 


H 




1 


p 


in 


0 1 


E 


CU 


1 








1 




o 


Pi 


1 


PM 




1 


o 


o 


iH 1 


CU 


r-H 


I 








1 






CJ) 


1 






1 




Ph 


4^ 1 


p=; 


CU 


1 73 


CU 






1 




1 




1 


1 




1 


1 




73 1 






1 CU 


p 






1 




fO 




1 


Ai 




1 


o 


1 


U 1 


1 




1 P 








1 




rH 




1 


rM 




1 


rM 


c\i 


0 1 


CO 


0 


\ < 


Sb 






1 




1 




1 


1 




1 


1 


1 


hM 1 


1 


p> 


1 


1-4 






I 








1 


















\ CU 








1 
























X3 


1 








I 
























73 


\ 73 








1 


























1 CO 








I 


























1 in 






ID 


1 








P 


- — ^ 




p 








-- — ' 


/\ 


1 (U 






O 


I 






— 


o — 






o 


— 








X 


1 2 : 








I 




’ — ' 






— 






' — " 


■ — 




' — ' 


V 


1 — 





134 



-3- HZMAHKS: Rsireirks are used to djrplify aa entire iressage. 

A fraxiirum of one hundred (100) lines may be entered 

using the display of ligure A-5. Ten (10) lines are 

processed per screen. 

i. ADMLMSTRATIVZ situation (Figure A-10) 

This information relates to OPNAVINST 3503.5 section 4, 

Administrative Status Reporting. Five data sets are 

provided, all of which rray be amplified (AMPN). 

-1- Conrrand Change: (COMl^ANE) Requires the operator to enter 
the new ccmmander and the effective date-time group of 
the command change. 

-2- Activity Clange: (ACTIV) Requires a two letter coae for 

the units current activity as obtained from OPNAVINST 
3503.5 Table 3-6. This table is available on screen 

through the HELP facility. The operator input is cross 
checked against the table to ensure a valid code has 
been entered. 

-3- Physician Status: (MEIIC) Access to this data set is 

limited to only units which are ships or submarines 
(OPNAVINST 3503.5 paragraph 4.5). This is a check off 
item as the possibile entries are limited. The operator 
enters an 'l' at the appropriate access point. At least 
one choice must be selected. 

-4- New Reporting CRG: (REPORG) The operator checks the 

appropriate reporting organization and enters the ITG . 
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-5- Jeedtdck Verification: (ViflllY) Tnis set is subiritted in 
reply to a feedback verification request (OPNAVINST 
3503.5 paragraph 4.8). The operator selects the 
appropriate reply dependent on the outcoire of the report 
verification . 

C. AIH SITUATION 

This information relates to OPNAVINST 3503.5 section c - 
Aircraft and Crews Status Reporting. Certain limitations 
were imposed in the design of the RCS UMTRIP SUBSYSTEM - a 
unit may possess up to four (4) different aircraft types 
and deploy these aircraft to no more than four (4) different 

t 

locations for each type. If a unit possesses less than four 
(4) different aircraft types, the number of possible 
locations can be increased by specifying the possessed 
aircraft type up to the maximum limit of four (4). Each 
additional specification allows four (4) mere locations. 

The ECS UMTRSP AIR SITUATION is subdivided into three 
displays: an Authorization Page , a Location Page and a 
Status Page. 

AUTEORIZATICN iligure A-lll 

This display shows the various Aircraft Types a unit has 
available, the number of Aircraft and Crews Authorized and 
the number of Locations where they are deployed. The cursor 
positions to the ACCESS point of the Type unless the Type is 
empty. In the latter case entry is to the first blank 
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Aircraft Type field. The accessed/entered type is cross 
checked against CPNAVINST' 3503.5 Table B-2. This table is 
available to the user through the HELP facility. The cursor 
nest positions to the Authorized Aircraft (AIRAUTE) and 
Authorized Crews (CRE'VAUTH) access points. The appropriate 
access code is entered to change, arplify, delete, restore 
or request HELP. The cursor positions to the Deployed 
Location access point. The Location Page is displayed if an 
'I' is enteren. 

2. location figure A^lil 

The Location page displays up to four (4) locations 
at which the aircraft are deployed. The first entry is 
always narred ECf^E PLATE, a pseudonyrr for the parent 
organization location reported in the POSIT set. On 
rressage copy it is represented as a hyphen as 

required by CPNAYINST 3503.5. The operator enters a new 
location in the first blank field or selects which location 
to access for status inf oriration. 

2. STATUS iFigure 4-131 

This page aisplays the current status of the 
particular aircraft type at the particular location. All 
status information for a given location may be deleted by 
entering a 'I,' at the Location access point. Individual 
status items may be deleted by entering a 'l' at the 
appropriate access point. Whenever status items are marked 
for deletetion the operator is prompted to modify a 
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Aircrdft Type xxxxxxx 
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corresponding status display, if required (e.g. Deletion of 
a detachment's status information normally requires an 
Increase in the parent organization's number of aircraft anc. 
crews possessed) . 

-1- Aircraft: (AIP.STAT) Full Mission Capable/Part ial Mission 
Capable (FMC/PMC) are always reported within the AIKSTA" 
set. A check is rrade to insure that Aircraft Possessed 
FMC + PMC + NMC (Not Mission Capable). If this set i:j 
deleted the Eeconaissance Capability is assumed to hav(j 
been deleted also. Therefore RECON will NOT be reported 
as deleted, but will in fact be purged from the systeir 
(OPNAVINST 3503.5 section c paragraph 8e) . 

-2- Crews: (CRZVSTAT) Crews Formed are not allowed to sxceei 
Crews Ready. 

-3- Reconnaissance Capability: (RICCN) As this set is 

reported in its entirety whenever a change has been 
made, individual capability deletions and additions are 
perm;itted. The operator is provided a prompt as to the 
procedures to be followed. The primary recon capability 
is always entered first. Entries are checked against 
OPNAVINST 3503.5 Table £-3. The table is also available 
on screen through the EILP facility. 
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Enclosure A-1 



Sample ROS UNITREP Draft Document 



HOS UNITRIP ERAIT DATA 
EC-1 E'ET 3 SERIAL 345 



CLASS m IN ACCORDANCE WITH OPNAVINST 5510 



INITIAL ITIf^S - LATA SET INFORMATION 
UNITREP SITUATION - <X> dpproprid te iteirs 



■:x) 


-0- 


( 


) 


-1- 


( 

V 


) 


-2- 


( 


J 


-3- 


( 


) 


-d- 


( 


) 


-5- 


( 


) 


-6- 


f 

V 


) 


-7- 


( 


) 


-s- 


( 


) 


-9- 



Modify Local Infortration 

Personnel Status 

Adrrinistrative Status 

Unit Corrbat Readiness Assesrrent 

Aircraft and Crews Status 

Major Equipment Status 

Special Capabilities Status 

Increased Lefense Readiness Status 

Reserve Augrrentation Status 
Type Corirander Reports 



INFREQUENTLY CHANGED ITEMS - 

CHANGE CNLY ON INITIALIZATION AND VEEN NECESSARY 

( ) -1- Unit Type: 

( )Ship ( )Subrarine ( )Air ( )Shcre ( )Cther 



( ) - 2 - Unit Identification - OPNAVINST 3503.1 App . C 



( ) -3- Last Serial 



( ) -4- Message to oe Prepared as Feeder (Y/N): 

(UNIT ID vice MSGID data set) 

If Feeder is set to YES precedence, addresses and 
classification will be placed on the rressage cover 
sheet(s) for review by the transrritting unit. The 
UNITII set will be used on the first line of the next 
page. Remarks and declassification lines will oe listed 
on the final page. 

If Feeder is set to NO all message information will occur 
in sequence with the MSGID set. 

AMPN MSGID/UNITID (Circle if Attached) 
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rr" EELSUFFHCN ONE LET THREE 

TO CINCFACFIT PEARL HARBOR El 

CO^^TBIR^ELT 

CC«,AS»VI.NGPAC SAN CIEGO CA 
NAVIATACEN PEARL HARBOR HI 
2IN/EELSUPPRON ONE 
INFO CO^•CARAIRWI^’G FOURTEEN 
C 0 N F I E E N T I A L 

( Classified for Demonstration Purposes 
f^EssAGE EEAIER - LATA SIT INFORMATION 
( ) -1- Addresses 

( ) Originator 



{ ) Action 
( ) Info 

) - 2 - Classification ( ) 

Dnclas 

Confidertial 
Secret 
Top Secret 



( ) -4- reclassification Instructions 



Only ) 



3- Precedence 
Routine 
Priority 
Irrmediate 
Flash 



Additional Addressees (Indicate ACTION or INFO) 



IXEH/SU^iMiH BAIN// 



OPIB/EXIB - DATA iilT IN lORf^ATION 
Only an Operation OR an Zrercise can be underway, NOT 
BOTE. To change frorr an Operation to an Exercise or 
vice-verse, first TIR^’INAT5 the current Operation or 
Exercise, then initiate the new Operation/Exercise. 



( ) 
I 
I 



I 

I 



cr 

I 

(') 

I 

I 

or 



-la- Operation Underway 

Operation Codeword 



(^^ANrAT0EY) 



Plan Originator and Nuircer 

(OPTIONAL) 



lb- Exercise Underway 

Exercise Nickname (62 characters max) 



( 



Ir^ANrATCRY*) 

-Ic- Operaticn/Exercise Terminated 



MSGIE/UNITxBEF/EC-1 LIT ’3/345// 

I^SGID/UNITID - DATA SET iNEORf^ATION 
This data set is set within the program depending on the 
items noted on the cover page under Feeder. 

The format is; 

NSG II/UNITRE?/ message originator /serial// 

0 r 

UNITID/ message originator /serial// 

Ar'PM (Circle if Attached) 



POS IT/NOBTE ISLAND /221100ZOCT83// 

POSIT - DATA SET INFORMATION =9= =?=?=» 

MANDATORY for ships/ submar ines . IF location is EXEMPT then 
no other information is required. IF not at a standard 
location, LAT/LONG is required. The DTG is required for 
any Location or LAT/LONG when not exempt. 

( ) -2- Position - Required for ship/sub 

Location (or EXEMPT) or LAT/LCNG . 

IdmmDC-dddmmDC 
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AS-CI Ddte-Tirre Group 
ddhhirirZr'^Myy 
Z 



Af'PK (Circle if Attached) 

( ) -3- Perrarks : 

Eeirarks (St^.KS) are used to amplify an entire message. 
They are limited to 100 lijies at most. 



(Additional attached) 
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CCri"ANr/LC_rE 2.1. NIVGUY/211200Z^AHS3// 

cOf'^AM - EATA SET INIORf" ATICN 
BOTH items MANEATORY. Punctation optional 

( ) -1- Command Change 

CO/OIC 

Effective DTG ddhhmmZiY^Myy 

Z 

AMPN (Circle if Attached) 

ACTI¥/CS// 

CS ops - Ccmlat Support 

ACTIV - EATA SIT lNlORf< ATI C N 
Valid cooes are contained in TABLE 3-6. 

( ) -2- Activity Change Code 

Af^.PN (Circle if Attached) 

R EPCRG/ C I M C? A CEL T / 20 1 9 00 Z^ AR S3 / / 

RIPCEG - EATA SET I NECR^A T I C N 
P.eports the NEW reporting organization 

( ) -4- New Reuorting ORG Effective ETG ddhhmmZM^Kyy 

Z 

( )CNC ( )CINC?ACELT ( )CINC1ANTELT ( ) C INCUS NAVEUH 
At^PN (Circle if Attached) 

VERIET/VALIE// 

VERIEY - EATA SET INECRr^ATICN 
VALIE - all data in the NRS feedback report is CORRECT 
CCRRECTEI - the appropriate information has teen submitted 

( ) -5- Eeedtack Verification ( ) Valid 

( ) Corrected 

AMPN' (Circle if Attached) 
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AIRJUJTE/SF-2G/AUTE :04// 

CRE\iAUTE/SH-3G/AUTP:04// 

AIR AUTECRIZATIONS - lAIA SIT INJCRMATION 
Aircraft Authorized are listed in the '<ieapon System 
Planning Eocuirent CPNAVNOTE 13Z13. 

Crews Authorized are listed in the Unit Manpower 
Authorization OPNAVNOTE 1000/2, M+1 column. 

Aircraft Crews 

1 ACCESS Authorized Authorized 

( ) ( ) _. ( ) 

AMPN-AIRADTE (Circle if Attached) 

AMPN-CREWAUTE 



AIRSTAT/SF-3G/PCSS :04/-/EMC :02/?MC :01// 
CRE\\’STAT/SE-3G/FORM:0e/-/REAri :2£// 

RECCN/SE-3G/-/CAMERA/T’;// 

Recon CaparhUlty Eefinitions 
CAMERA: Eand Eeld Camera 
TV: Television 

=«'=«' AIR STATUS - EATA SET INFORMATION 

Valid RECON capahilities are contained in TABLE 3-3. 

( ) -1- Aircraft ( ) -2- Crews 

Possessed EMC PMC NMC Formed Heady 



( ) -3- Reconaissance Capability Primary 



AMPN-AIRSTAT (Circle if Attached) 

AMPN-CREVSTAT 

AMPN-RECON 



EELETE/AIRSTAT/SE-3G/P0SS :02/CORAL SEA/EMC :02/PMC :Z0// 
ESLETE/CREWSTAT/SH-3G/F0RM :03/CCRAI SEA/REAEY:03 V 

pecon Capability Eefinitions 
CAMERA: Eand Eeld Camera 
TV: Television 
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j>i5 STATUS - EATA SIT INFORf^ATICN 
Valid R5CCN capabilities are contained in TABLE B-3. 

f ) -1- Aircraft ( ) -2- Crews 

Possessed EMC PMC NMC Forrred Ready 



( ) -3- Peconaissance Capability Priirary 



AMPN-AIP.STAT (Circle if Attached) 

AMPN- CREWS T/T 

AMPN-RICON 
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AIB - NZW - CATA SIT INICRf* AT ICN 
AUTEORIZATICNS 

Valid Aircraft Types are contained in TABLE B-2 . 
Aircraft Authorized are listed in the Weapon Systerr 
Planning Tocuirent OPNAVNOTE 13010, 

Crews Authorized are listed in the Unit Manpower 
Authorization CP.NAVNCTI 1000/2, M+1 coluirn. 



Aircraft 




Ai rc ref t 


Crews 


? ACCESS Type 




Authorised 


Authorized 


( ) 




( ) .. { 


) 


LOCATION 








( ) location 








STATUS 








Valid RECCN capabilities 


are 


contained in TABLE 


3-3. 


( ) -1- Aircraft 




( ) 


-2- Crews 


Possessed EMC PMC 


KMC 


Forined 


Ready 


( ) -3- Peconai ssance 


Capability Primar 


y 



AMPN-AIRAUTE (Circle if Attached) 
ampn-criwaute 

AMPN-AIPSTAT 

AMPN-CREWSTAT 

AMPN-EICCN 
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Rr'KS/LIIE GIAP.L EITACEI^ENT RETURNEE ERO(^ SEORT CRUISE/7 

Rf^KS - DATA SET INEORMATICN ^ =4' « 

Change atove. Iteir -3- Rerrarks. 



ECLAS/EECL 21 MAP 87// 



ECIAS - EATA SET 
The declass! f icat ion 
OPNAVTNST £512.1. It 
messages and is set o 
Header item -4-. 



INEORMATICN 



line is set 
is required 
n the cover 



in accordance with 
for all classified 
page under Message 
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p 



Pr HPLSUFFPCN ONE EET TEREi 

TO CINCPACFLT PEARL HAREOR El 

COr^TElRriLT 

CONASwWINGPAC SAN DIEGO CA 

NAVEATACEN PEAPL EARrOR HI 

ZEN/HELSUFPRON OM 

INFO COf^CAEAlR'AlNG FOURTEEN 

CONFIEENTIAL 

( Classified for Demonstration Purposes Only ) 

FXFR/SU^N’EE RAIN// 

MSGir/UNITREP/HC-1 EET 3/345// 

CCf^^ANr/LCER 3.F. NEVGUT/21 l2e0ZyA?.S3// 

AIRSTAT/SH-3G/PCSS :04/-/Fr^C : 02 /Pf^.C : 01 // 

CRFlnSTAT/SP“3G/FOR^:0e/-/REAEY :05// 

EEL2TE/AIRSTAT/SH-3G/PCSS :02/CCRAL SEA/F '^C : 02/P!^C : 00// 
EILEIE/CRE'rfSTAT/SH-SG/FGRf' :03/COHAL S EA/RIAE Y : 03 // 
Rr'KS/LIFE GUARD DETACPr'lNT RETURNEE FRCr' SHORT CRUISE// 
ECLAS/EECl 21 f^AP. S7// 

NNNN 
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APFENDIX 3 



JANUS/ABA LIERAHY MCBULIS 

This appendix provides the definitions of the 
SJhprcgrarrs fror the JANUS/ABA library paclcages (io, util, 
strlib, chainlib) used in the RCS UNITREF SUESYSTIt^. 



Package IC Is 

— The I/O package for JANUS V. 1.4.5 

— Last l-odified 10/13/82 



-- Copyright 1982 F.R Software, F.C. Box 1512, Madison 
— VI 53T01. Permission is hereby given to distribute 
-- Object Code produced from these libraries. 



Type File_r^ode Is 

(No_Access ,Read_0nly ,Vrite_Only ,?.ead_Vrite) ; 

lOresult : Integer; — The result of the IC operation 

Procedure Cpen(Eyle : In Out File; Name : In String; 

Mode : In File_Mode); 

— Open the file name and give it the mode mode 

Procedure Create(Fyle ; In Cut File; Name : In String; 

Mode : In File_Mode); 

— Create the file name and give it the mode mode 

Procedure Eelete( Name : In String); 

— Delete the file name 

Procedure Close(Fyle : In Cut File); 

— Close the file fyle 

Function Name(Fyle : In File) Return String; 

— Return the name of the Open file 

Function Is_open(Fyle : In File) Return Roolean; 

— Is the file fyle open? 
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Junction Get_Line (' Jyle : In File) Return String; 

— Get a line froir. the file fyle 

Procedure Put_Ee 2 : ( Fyle : In File; val : In Integer); 

— Write the integer in hexidecirral (no special fortrat) 

Function 5nd_o f_f i le ( fyle : In File) Return 3oolean; 

— Fnd of File Reached (in a text file)? 

Function ECF(fyle t In File) Return Boolean; 

— End of File Reached (in a hinary file)? 

Function lisk full'fyle : In File) Return Boolean; 

— Is the"Cisk full ? 

Function Fnd_of_Li ne (fyle : In File) Return Boolean; 

— End of Line Reached? 



Fnd 10 ; 



1^5 



With Jiibee; 

Package Util Is 

— Spec for the package util 
— Last modlfed 9/22/82 

— Contains the utility routines, anl the basic file 
— handling routines 

— Copyright 1982 HR Software, ?.Q. Box 1512. h'adison 
— VI 53701. PeriTission is hereby given to distribute 
— Object Code produced frorr these libraries. 



Use JlilSC; — So the file definitions are available 

Procedure Irr_Exit; 

Procedure Halt; 

Function Ei (val ; Integer) Return Byte; 

Function Lo (val : Integer) Return Byte; 

Function Memavail Return Integer; 

Function Maxavail Return Integer; 

Function C oirrrdnd_Line Return String; 

— Returns the command line 

— Eefault File Procedures 

Function FConver t (Fyl e : In File) Return File_ptr; 
Procedure FFConvert (Fyle_ptr ? In File_?tr; 

Fyle : Cut File); 

— Convert to and frotr the type file to the type 

— file_ptr. For system use only. Not to be used in 

— user programs. 

Function S tandard_Input Return File; 

— Returns the initial default system input file 

Function Standard_Output Return File; 

— Returns the initial default system output file 

Function Current_Input Return File; 

— Returns the current default input file 

Function Current_Output Return File; 

— Returns the current default output file 

Procedure Set_Input (Fyle : In File); 

— Set the current default input file to fyle 

Procedure Set_Output (Fyle ; In File); 

— Set the current default output file to fyle 



Ind Util; 
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Package Strlib Is 

— String Handling Package Specification 
— Last r^odified 6/ 3/82 



— Copyright 1982 HR Software, P.C. Box 1512, f'ladison 

— WI 53701. Permission is hereby given to distribute 

— Object Code prcdiiced from these libraries.. 



Subtype ^string Is String(255); 

— Maxirrurr string length 
Subtype Strindex Is Integer Range 0..255; 

— f^aximum string indices 

Function length (str : In lustring) Return Integer; 

— Return the length of the string 

Function Remove (str : In ^string; pos.size : In Strindex) 

Return r! string; 

— Remove size characters from str at pos 

Function Insert (source, dest : In lustring; 

pos : In Strindex) Return f'lString; 
— Insert source into dest at po*s 

Function Fxtract (str : In f'string; pos, size : In Strindex) 

Return Tistring; 

— Extract size characters fro.m str at pos 

Function Position (pattern, str : ^string) Return Integer; 

— Return the position of the first occurence of pattern 
— in str, or 0 if there is none 

Function char_to_str (char : character) Return String; 

— Convert a~character into a string of length 1 

Function str_to_int (str : r^string) Return Integer; 

— Convert a string Into an integer 

Function int_to_str (int : Integer) Return lustring; 

— Convert an integer into a string 

Fnd Strlit; 
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Package Chainllb Is 

— The prograir chaining and calling library 
— Last rrodified 9/ S/S2 

— Copyright 1982 ?.R Software, P.O. Box 1512, Madison 

— VI 537C1. Perrrission is hereby given to distribute 
— Object Code produced from these libraries. 

Procedure Chain(Str : In String); 

— Chains a program, saving the data segment 

— 4Note: The Jlib80 library must be the same for 

— both the chaining and chained programs for tnis 

— routine to work 

Procedure Simple_Chain( Str : In String); 

— Chains a program, destroying the data segment 

Procedure Prog_Call (Str : In String); 

— Calls a program (Not Implemented) 

Procedure Prog_Return; 

— Feturns from a called program (Not Implemented) 
Ind Chainlib; 
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APPENEIX C 



PCS UNITREP CWPUT|R LISTING 



This appendix provides the coirputer listing of 
UNITPIP SLBSTSTEf^. The listing is organized to 
the structure of Chapter IV ( Iirpleirentation) : 

Basic Frograir Support Corrponents 
consio 
prlntio 
urglobal 
urutil 
urtest 

Progratr Eata Components 
urgl hi 
urlocalA 
uradminB 
urai rP 
uni tr epA 
uni trepB 

Program Control Corrponents 
uni trep* 
unitrepl 
uni trep2 
unitr ep3 
f i 1 e rA 
filers 

Program Operative Components 
urlocal 
urlocall 
uradmi n 
urair 
ura i r 1 
ura ir2 
urai r3 

Ml scellanecus 

initialA 

initials 



the ROS 
follow 



PACKAai C03S10 IS 

-- This package provides console screen oriented 

— i/o procedures for d Idtarredia Elite 2500 

— terminal 

hell: CONSTANT := CEAHACTER 'VAL (7 ) ; -- Aural beep 

carriage return: CONSTANT := CEARACTEP/VAL ( 13 ) ; 
tab: CONSTANT := CHARACTER 'VAL (S ) ; 

PRCCEEURE getxy_iP"irediate (x ,y : IN INTEGER; 

char: CUT CHARACTER'; 

— Positions the cursor at screen position x,v and 
weits for exactly one chdr=icter to be input. 

— Converts to 3AUrOT/CCR only characters 

PROCEIUR5. getxy(x,y: IN INTEGER; 

terrp: CUT STRING; 
field_length: IN INTEGER); 

— This ]:rocedure positions the cursor at screen 

— position x,y reads the input, terrp for a rraxirrurr 
“ of f ie; ld_length characters, and converts to 

— EAUECT/CCR characters if required. 

FROCEEURE putxy(x,y: IN INTEGER; ten^p: IN STRING); 

— Positions the cursor at screen position x,y and 
— Vf'ites the input, temp, at this position. 

PROCErURP clea;'_screen; 

— Clears the console display. 

EUNCTICN mdrk(xx,yy: IN INTEGER) RETURN BOOLEAN; 

— Checks for an <I>!tab or carriage return! space 
-- at the x/y coordinates 

RROCELURP clear_field(x,y,len : IN INTEGER); 

Clears the screen field of length len at x,y 



ENI consio; 
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’lilTE strlib ,io ,utll ; — JANUS library packages 
PACKAGE EOEY consio IS 

— This package provides console screen oriented 

— i/o procedures for Eatatredia Elite 2500. 

— ^.ust be tailored to the particulcir systeir. 

— terminal dependent constants 
position cursor: CONSTANT := CFARACTER'VAL(12 ); 
clear: CONSTANT := CHAPACTEE 'VAL (30 ) ; 

rubout: CONSTANT := CEARACTSR'VAL( 127) ; 

scr een_backspace : CONSTANT := CEARACTER 'VAI (S ) ; 

FROCErURE gotoxy(x,y: IN INTEGER) IS 

— This procedure is rrodified for tne screen of a 

— lATAN'EEIA ELITE 2500 terrrinal . It trust be changed 

— as required for each new terminal 
XX, yy: INTEGER; 

REGIN 
CASE X IS 

^EEN 0. .31 => XX := x +96; 

WEEN 32.. 63 => xx := x + 32; 

WEEN 64.. 78 => zx := x - 32; 

WEEN OTHERS => PUT("lnvalid x coordinate"); 

XI := 96; 

ENE case; 

CASE y IS 

WEEN 2.. 22 => yy, : = ^_y ^ 96; 

WHEN OTHERS => ?UT("lnvalid y coordinate"); 

yy S6; 

ENE case; 

— set addressing mode and coordinates ' fo r xy 

— terminal addressing 
PUKuosition cursor); 

PUT( CHARACTER 'VAL( XX ) ) ; 

PUT(CHARACTER'VAKyy) ); 

ENE gotoxy; 

PROCEEURE baudot_convert( char: IN CUT CHARACTER) IS 
USE utii; — Halt 

— Takes char and converts to legal BAUEOT/OCE 

— character. I? lower case, capitalizes. If 

— Illegal converts to null and puts out an aural 

— tone 
BEGIN 

CASE char IS 

— no action on these control characters 
WEEN CHAPACTER'VAL(0) 1 CHARACTER 'VAL (2 ) | 
CEARACTER'VAL(4) . .CHARACTER'VAL(S) ! 
CHARACTER'VAK 10). . CHARACTER 'VAI(31) 1 
CHARACTER 'VAL (127) => NULL; 
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— abort and reboot on control-c 
’«HIN CEARACTZR'VAL{3) => clear_scr een ,* 
PUT("User Coirtranded Abort 
Halt ; 



— allow tab 'VAl(9) to function as a rrark 
VEIN CHAHACTEE'VAL(S) => char ;= 'X'; 

— allowable EAUECT characters 

IvHIN '2'. .'S' 1 'A'.. 'Z' ! '-' 1 ! 

1 '&' I '#' 1 '" 1 '(' I ') ' 1 ! 

I i I ' ' => null; 

— caoitalize lower case 
•VEIN 'a'..'z'*=> 

char := CHARACTER 'VAL( CHARa CTIP. 'FOS ( cha r ) -32); 

— convert all others to null and notify 

— user by the bell 

'#HEN OTHERS => char := CEARACTER'VAL (0 ) ; PUT (bell); 

ENL case; 



ENI baudct convert; 



PROCZrURI i;etxy_in:frediate(x,y : IN INTEGER; 

char: CUT CHARACTER) IS 
USE Jo; — Open, Close 

— gs.’ts exactly one character from screen position 

— x,y and converts to 3AUI0T/0CH 
fyle: EIIE; 

BEGIN 

Open ( fyle , "SBI) ,Read_Only) ; — JANUS keyboard 

pc-.oxyi'x,y) ; 

GET ( f yl e , char ) ; 

CIOSE(fyle); 
boudot^convert (char) ; 

PUT ( char ) ; 

ENT ,ietxy_irrrredia te ; 



PROCELuRE getxy(x,y: IN INTEGER; 

teiro: OUT STRING; 
f ieid_length: IN INTEGER) IS 
USE strlib; — Length .Extract ,Char_to Str 

— This procedure positions the cursor at screen 

— position x.y reads the input, temp for a maximum 

— of field_length characters, and converts to 

— RAULOTOCR characters if required, f^anipula ti on 

— for character deletion allowed. 

key: CHARACTER; 
xnext: INTEGER := x; 

BEGIN 

•• «* 

temu ;= ; 

LOOP 

getxy_immedla te ( xnext ,y .key ) ; 
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EXIT WEEN key = ca r riage_ return > — no more input 

15 key = rutout ANE xneit > x THEN 
FDT( screen_'Ddck.'.pace ) ; 

FUT("-'); — erase screen character 

temp ;= Extract (temr , 1 ,Iength(temp)-l ) *' 

— remove from" string 
xnext := xnext-i; 

ELSIE key - rurouC and xnext = x TEEN 
FUT( bell) t 

ELSIE key = CHAEa':TER'VAL( 3) THEN 
NULL* illegal chcracter 
ELSE 

temp := temp S. Char_ t o_St r (key ) ; 
xnext := xnext i-i; 

EXIT WEEN xnext > field length + x - 1* 

5NI ie; 

ENE ICCP? 

— strin trail.ing blanks 
EOR 1 IN PEVIRSE i . .Len£;th( temp) LOOP 
EXIT WEEN terp(i) /= " 

IE temp(i) = ' ' THIN 

temp := Extract (temp, 1,1-1) ; 

ENE ie; 

ENi I cop; 

ENI getxy; 



PHOCirURE putxy(x,y: If. INTEGER; temp: IN STRING) IS 

— Positions the cursor at screen position x,y and 
— writes the Inuut, temp, at this position. 

BEGIN 

gotoxy (x ,y ) J 
PUT ( t emp ) ; 

ENI putxy; 

PROCEDURE clear_screen IS 

— Clears the console screen 
BEGIN 

PUT (clear) ; 

END clear screen; 



EUNCTICN mark(xx,yy: IN INTEGER) RETURN BOOLEAN IS 

— used in menu selection areas where a boolean 

— value is required by the program, 
key: CHARACTER; 

BEGIN 

LOOP 

getxy_immediate(xx,yy ,key ) ; 

IE key = 'I' THEN 
RETURN true; 
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EISIF key = tab TEEN 
BITDEN TPUF; 

IlSIF key = carriage_return TEZN 
HITUEN falsi; 

FLSIF key = ' ' THEN 
H5TURN false; 

ELSE 

FUT( tell) ; 

ENL if; 

INI loop; 

ENL irark; 

PROCEEUHE clear_field(x,y ,len : IN INTFGEK ) IS 

— clears screen data fields for Xe.i cnaracters 
BEGIN 

FCP i IN 0. .len-1 LOOP 
putxy (i^i ,y ) ; 

ENL loop; 

ENE clear_fleld; 

INI coQSio; 
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PACKAGE prlntio IS 

— Provides interfdce lo the printer 
line_count: INTEGER; 

— forrrat pararreters 
irax_lines_in_page ,max_line_length , 

lfne_spacing ,header_l ines tINTEGER ; 

rrargin , end_t rans : STRING; 

printer: PILE; 

PROCEDURE printer_on; 

PROCEDURE prlnter_off; 

PROCEDURE NE¥_PaGE; 

— eject 

TYPE forrrat IS (rrsg , ocr , t ex t ) ; 

TYPE forrrat_state IS ARRAY 

(format RANGE msg-.text) OE 300L 
forrrdt_is: f orrrat_sta te ; 

PROCEDURE set_f orrrat ( forrrat_t 7 pe : IN forrrat); 

— sets page forrratting 

PROCEDURE put_printer (content : IN STRING); 

— prints the content 

END printic; 
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--JANUS /AIA libraries 



WITH strlib.io; 

PACEAGI iCn printio IS 

— Provides interface to the printer 

— for Teletype Coro rrodel 40 printer 
page_ej6ct: CONSTANT := CHAEACTIP’VaK 12 ) ; 

PHOCZrUHl printer_on IS 
USI io; -- Cpen 

— JANUS /AIA orinter is 1ST; 

BEGIN 

Open ( printer, “ lST ,W ri te_Cnly ) ; 

SNE printer_on; 

PROCEEUP.I printer_off IS 
USE io; — CIOSE 

BEGIN 

CLCSE(printer) ; 

EM printer_off» 

PBOCEIUPE NEW_FAGE IS 

— page eject. Can te elirinated with ALA 
— STipoorting the NEW_PAGE procedure 
BEGIN 

PUT (printer ,page_ eject ) ; 
line count := i; 

ENE NEW page; 



FPOCEEUP.E set_f ormat (forrrat_type : IN forrrat) IS 
— sets'page forrratting 
BEGIN 

forrrat_is (irsg) := EAISE; 
fo rrra t_i s( ocr ) := FALSE; 

f orrrdt_i s ( text ) := FALSE; 

IF forirat_type = rrsg TEEN 
f 0 rrra t_i s (n"sg ) := TRUE; 
rrax_lines_in_page := 42; 
trax_line_length := 69; 
line_spacing ;= i; 
header_lines •- S; 
rrargin := ” 
end_trans := "BT"; 

ELSIE forma t_type = ocr TEEN 
fcrrrat_is (ocr j *.= TRUE; 
max_li nes_i n_page := 19; 
rrax_line_length := 69; 
line_spacing := 2; 
header_lines := 6; 
margin := ’* .. " ; 

end trans := NNNN ; 
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ILS5 -- forrtdt_type = text 

f 0 rina t_i s ( text ) ;= TRUE; 
rrai_lines_in_pdge ;= £5; 
irax_li ne_Iength ;= S0; 
line_spacing := i; 
headir_lines := 6; 
rrargia := 
end trans := 

INI If; 

ENi: set forirat; 



PROCirURE put_printer (content : IN STRING) IS 
USE strlib; — Length .Extrac t 

— nrints the content 
hul’fer:‘STRING; 

3EG-IN 

buffer := content; 

— liirit line length according to forrrat 
"F Length(huf fer) > rrax_line_length THEN 

buffer := Extract (buffer, l,rrax_line_length) 

ENr if; 

buffer := margin & buffer; 

— print header 

iF line_count = 1 TEEN 
FOR 1 IN 1.. header lines LOOP 
NEW_LINE (printer!; 

ENI loop; 

ENI if; 

— print line 

PUT (printer, buffer) ; 

— line spacing 

FOR i IN 1 . . li ne_spac ing LOOP 
Niy_L INF (printer ) ; 

ENT loop; 

line_count := line_count + i; 

— page_eject 

IF line_count > max_lines_in_page THEN 

NEW _ page; 

ENI if; 

ENI put_printer; 

ENI printlo; 
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WITH printio , 




con sio , 




urglbl ; 




PACKAGE urglcbal IS 




USE printio , 


— f 0 r 


c 0 n s i c , 


• — for 


urglbl ; 


— f 0 r 



— global vei'^lables 
fyle; III5? 
key: CEA?ACT'£?J 



fcrrrat in prograrr status 

carriage_return 

coFrrent_set/process_Gorr,rrent 



— single key read 



-* constant single Characters 



X : 


CONSTANT := 'l'] 


y: CONSTANT 


:= 'Y'; 


n : 


CONSTANT := ''N'; 


h: CONSTANT 


:= 'E'; 


c : 


CONSTANT := 'C'; 


e: CONSTANT 




a : 


CONSTANT := 'A'; 


d: CONSTANT 


:= 'r'; 


r: CONSTANT := 'B'; 
space: CONSTANT := 


' ; q ue s : C 


CNSTANT 


no 


_input: CONSTANT 


:= carriage_ 


return ; 
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^ile_buf fer , cuf fv® : STRING; -- file/keyboard buffers 
tlankln ,dashln : STRING (8£); — screen lines 



— strings of length 1 

dash , blank , d j-.&Tk , n_irark, r_rra rk ,x_rra rk .y_*Tark , 
a_rark , s tar , nu L 1 _ st ri ng : STRING; 

success , reselect : 300IEAN; — general booleans 
number: INTTGIR; -- general numbers 



-- global action data 



TTPI action IS (dr af t , neww, modi fy , pri n t , 

log, erase, verify, quit) ; 

TIRE action_state IS ARRAY (action RANGE draft.. auit) 

OE xCCLEAN; 



action is: action state; 



— global areas 



TYPE areas IS ( pens , admin , com tat , air , equip , specap , 

defer, se, reserve, ty com, local); 
TYPE area_state IS ARRAY (areas RANGE pers.. local) 

Or xCOLiAN ; 



area is: area state; 



TYPE unit_type IS ( ship , subma nine ,ai r_unit .shore ,o ther) ; 
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— prograrr status structure used to coirtrunica te 

— between the prograir modules 
TTPI prograrr_statu5 IS 

RICCBr 

unit: unit_type; 
initial_ent ry : BOOLEAN; 
print_trailer : BCCIEAN; 
rressage_traasmitted : BOOLEAN? 
current_action : action_state; 
curre nt_area : area_state? 
current_f ormat : forma t_state? 
printing_line : INTEGER; 
workfile; STEING(14); 

INI record; 

program ;program_status; 



PROCEDURE border; 

— screen outline 

PROCEDURE prccess_comment (data_ set ; IN STRING; 

comment: IN CUT commen t_set ) ; 

-- processes free text ( ANDN, f NES ! data sets 

PROCEDURE print_comment-(data__set : IN STRING); 

— pri nts~amplif Ication (A^'.Fi'^• data sets 

PROCEDURE error (number: IN INTEGEP.) ■' 

— Provides console error messages 

PROCEDURE help(data set: IN STRING); 

— Provides RCS UNITRE? HELP information 

PROCEDURE view table( filename: IN STRING); 

— Provides user with the option to examine valid 

— table entries from CPNAVINST 3U03.5 

FUNCTION reoui red_prlnt ( changed_i tern : BOOLEAN) 

RETURN BOOLEAN 

— determines if a given data set is to be printed 

— for the required report 

PROCEDURE draft _aid (data_set : IN STRING); 

— provides assistance in form of a draft document 

— gets the draft information for data_set 



END urglotai; 



imlTH io,strlib, — JAMJS/AEA libraries 

consio ,pri nt lo , 

— # urtest, — in procedure error/help 

urgltl > 

PACKAGE fOri urglobal IS 
USE consio, 
urglti; 

— global variables initialization perfcrrred here as 
— JANUS/ADA cannot initialize structured variables. 
-- Would be accorrplished in specification in full 

— APA. 

PR0CIEU3E border IS 

— draws the standard border 
BEGIN 

clear_screen; 
putxy (20,0, 

"pcs UNITPEP SUESTSTiy"); 
putxy(0,2,dashln) ; 
putiy(0,21,dashln ) J 
ENE border; 

PHOCEEUHE process_comment(data_ set : IN STRING; 

conrrent : IN OUT corrr£nt._nLt ) 3S 
USE strlib; — Extract 

USE io; — Open , CLOS E , Cr ea te , Eele te , GET_LI NE 

— processes all comment sets 10 lines/time 

content: ARRAY ( 1 . . max_comrren t ) OF 
• STRI NG( max_line_le:igth) ; 

slo: constant := 5; --screen line offset 

PROCEIURE commentmask IS 

USE strlib; — Extract 

— draws the comment screen 
BEGIN 

border; 

IE Extract (data_set ,1 ,4) = RMKS THEN 
putxy(0 ,3,'’RE^'ARKS SECTION - PAGE 
& Ext ract (data_set ,5 ,1 ) ) ; 

USE — comment is remarks 

putxy(e ,3 ,”Ar"PLIEICATICN SECTION - " £ data set); 
ENE ie; 

FOR line_number IN 1 . .max_comment LOOP 
putxy( E , line_number + slo. 

Extract (dashln , 1 ,max_li ne_length) ) ; 

ENE loop; 

ENE commentmask; 
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PP.OCilURE f il l_cori'mentmask IS 
BEGIN 

corrirenttTdSk; 

E05 line_numt)er IN 1 . .cotrirent . nuP'ber_o f lines LOO? 

putxy(5,line nurrter + slo , content (line number)); 

ENE loop; 

EM fill_con’tnentrTidsk; 

BEGIN 

— read in existing data 
IF comment . change THEN 

Open (fyle ,ddta_set & “ .Am?" ,Head_0nly ) ; 

FCP 11 ne_nurrher IN 1 . . comren t . number_of _1 ine s LOOP 
content f line_number) := GET_LINE( fyle ) ; 

ENE loop; 

FOR llne_nuirber IN corrrrent.nuirber_of_lines+l . . 

max_comment LOOP 

ccntentdine number) := null_string; 

ENE loop; 

CLCSE{ fyle) ; 

ENE if; 

— process comment data 
IF NOT comment .change TEEN 

comment .number_of_lines := 0; 
commentmask; 

FOR line_number IN 1 . .max_commen t LOOP 
content-(line_number ) := null_string; 

ENE loop; 

FOR line_number IN 1. .max_comment LOOP 
getxy_immediate(5 ,1 ine_numbe r+slo ,key ' ; 

EXIT WEEN key = no_iaput OR key = space; 
comment .change := TRUE; 

getxy { e ,1 ine_Qumber + slo .content (line_numter) ,6l) ; 
content dine_number ) := Char_to_Str (key ) 

S. content (line_number) ; 
comment .number_of_lines := line_number; 

ENE loop; 

ENE if; 

comment_page : LOOP 
f ill_commentmask; 

pu txy ( 2 ,22 , "<ENTER> to continue, <C> to change, " 6. 

<E> to erase, <?> for help"); 
getxy_immediat e (73 , 20 ,key ) ; 

CASE key IS 

1«HEN no_input { space => EXIT; 

WFIN c => 

putxy (0 ,20 ,blankln ) ; 

putxy ( 0 ,20 , "Po si tion cursor to line to change 
&"and type over - ENTIRE LINS N'UST BE CEANGEE"); 
FOR line_number IN 1. . max_comment LOOP 
getxy_immedidte(5,line_number slo .key); 
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IF key = no_lnput OS key = space TEIN 
putxy (5 ,lIne_nun’ter-^-slo , 

content (1 ine_nup'ter) ) ; 

ELSE 

clear f ield ( 6 , 1 ine_nuirter + slo,6l); 
getxyT6,line_nutnter + slo , buf f er, ei ) ; 
content ( line_currber) := Char_to_S tr (key ) 

& buffer; 

IF line nurrber > corrrrent . nurr ber _o f _1 ines 

TEEN 

con’P’ent .nuiT’ber_cf_lines := 1 ine_nurrber ; 

ENE if; 

ZNE if; 

ENE loop; 

kEEN e => corrp’ent . change := FALSE; 

FOP. line_nufrber IN 1. .trai_coirirent LOO? 
content ( line_nurrter) := null_strir.g; 

EN'E loop; 

kEEN ques => help ( " aMPN/PMKS " ) ; 

f ill _cotnrr'ent mask; 

'«EEN OTEERS => error(c); — incorrect input 

ENE case; 

I? content(l) = null_string TEEN 
cornirent .change := FALSE; 
comment .nuirber_of_l in es :=■ 0; 

ENE if; 

ENE LOOP coiTment_page ; 

-- Write data to file if reouired 
EFLETE(data_set & ’’.A^P"); 

IF comment . change THEN 

Create (fyle ,data_set h, AMP”,Write_Only) ; 

FOR line_number IN 1 . .commen t . nutrber_of_l ines LCC? 
PUT(fyie,content(line_number;); 

NEW_LINE(fyle) ; 

ENE LOCP; 

CLOSE(fyle) ; 

ENE if; 

ENE prccess_comment ; 

PROCEEURE print_comment (data_ se t : IN STRING) IS 
USE printio; — put_printer 

USE io; — Open, GET_LINE, ENE_OF_FILF , CLOSE 

— print any amplification/remarks lines required 

— for old messages - .amp files are purged 

— when message is logged as transmitted 
REG IN 

Open(fyle ,data_set & ”.AI^P",Read Only); 
file_buffer := ”AMPN/" & GET LINE(fyle); 

LCCP 

IF ENE_OF_FILE(fyle) TEEN 

file buffer ;= file buffer S. 
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put printer(f ile_buff er) ; 
CLCSI(fyle) ; 
iXX t; 

IISZ 

put_print er ( f il e_buf f er ) ; 
file buffer := GET_LI NZ( fyle ) ; 
END IF? 

INI loop; 

INE prtnt^coirirent ; 



PROCIEUPE error fnurrber ; IN INTEGER) IS 
USE lo.striib; 

— # USE urtest; — for test_file 

— processes error rressdges 

index; INTEGER; 
message; STRING (60); 



BEGIN 

Open( fyie, "EHRySG" ,Read_Crily ) ; 
index ;= i; 

LOO? 

rressc-ge ;=•• Get_Line(f yie) ; 

IE number = index THEN 

exit; 

IL3IF End_ of_File(fyle) TEEN 

mesfiage* := Int_to_Str (number ) S. 

Not found in SER^'SG"; 

exit; 

ELSE 

index index + i; 

ENf if; 

ENI ICC?; 

Close(fyle) ; 

PUT(beil); 

putxy( 0,22, ERROR "); 

putxy (X0 ,22 .message <ENTEP>"); 

getxy_immediate( 78,22, key ) ; 

— # remove next 2 from production 
?UT( test_file , "error message); 

-# New_Line ( test_f ile ) ; 

putxy(0,22,blankln); 

ENI error; 



It tt 



PROC£EURE hcli:)(cidtd set: IN iJTHIN:;) IS 
USE lo; — Cpen,CIOSi,GIT_LINZ 

# USE urtest; — tesT_fiie 

— provides aelp inforrrdtion for a pdrticular data 

— iterr 



BEGIN 
■border; 

outi7(0,3,"EELP IN^OR^' ATION - " & data_set)j 

NEW line; 

OpeiiCfyle, " help. TXT", Pead_Cnly) ; 

LOOP 

file_tuffer := GET_LIN'E ( f yle ) ; 

IF file_buffer - data_set THEN 
LOOP 

file_buffer := GET_LIM(fyle) ; 

EXIT WEEN file_buffer = — delitr.eter 

?UT(f ile_bnffer); NEW_IINE; -- display line 

INL loop; 

putxy ( 25 ,20 , "<ENTER> to Continue"); 
getxy iirirediate ( 44 , 20 , >ey ) ; 

exit;" 

ELSE 

— keep searching for data set until end 
EXIT WEEN ENL CF_E ILE( fy le ) ; 

ENi if; 

ZNi loop; 

CLCSE(fyle); 

— # 'xeep track of help accesses 
— # remove from production 
PUTdest file, "HELP - " & data set); 

NEW LINEltest_file); 

ENE helpT 

FEOCELUHI view table ( filenarre : IN STRING) IS 
USE io; -- Open .CLOSE, GET_LINE 

BEGIN 

PUT (bell); 

putxy ( 0 , 22 , "<ENTEH> to Continue, ENTER <X>" & 
to View Valid Incries:"^’ 

IE rrarlc(52,22) TEEN 

Ouen( fyle ,f llenaire , Read_Cnly ) ; 

WFILE NOT ENE_OF_EILE(fyle) LOOP 
border ; 

putxyO ,1 , "VALID ENTRIES (REF. OPNAVINSI " & 
"3503.5 " & filenarre &")"); 

JOB y IN 3. .20 LOOP 

EXIT VEEN END_OF_FILEffyle); 
buffer := GET_LINE(fyle) ; 
pu txy ( 0 ,y , buf f e r ) ; 
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END LCCP; 

putxy(0,22,"<ENTER> lo Continue, INTER <Z> tc " S. 
S X 1, t/ * ) 5 

EXIT WHEN rrdric(40,22) ; 

END LOCP; 

CLCSE(fyle) ; 

END if; 

ENI view table; 



FUNCTION requi red_print (chan^iec!. Item: BOOLEAN) 

RETURN BOOLEAN IS 

BEGIN 

IF action_ls(draft ) OR acticn_ls (verify } OR 
(action is(print) AND changed_it err ) TRIN 
RETURN true; 

ELSE 

RETURN false; 

ENI if; 

INI reqi.iired_print; 



PROCEDURE draf t_aid (data_set; IN STRING) IS 
USE printio; — T3ut_orlnter 

USE io; —Open .CLOSE, G£T_LINE,END_CF_F.tlE 

— provides printed formats for the assistance 

— of drafting a unitre? 



BEGIN 

put_priater(null_string); 

Open( fyle .’’DRAFT .TXT",Read_Cnly) ; 

LOOP 

file_tuffer := GET_LINE ( f yle ) ; 

IE f ile_buf f er ,,= data_set THEN 

cut _nrint er ( ’ S file_buffer & 

- DATA SET INFORMATION 

ICOP 

file_buffer := GET_LI NE ( fyle ) ; 

EXIT WHEN fiie_buffer = — delimeter 

put_printer( f ile_buffer) ; — onntline 
END LOO?; 

cut_printer( null_string); 
put_prlnter(null_string); 
put_crinter (null _st ring) ; 

exit; 

ELSE 

--keep searching for data set until end 
EXIT WEEN ENr_OF_FILE( fyle ) ; 

EM if; 
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INI loop; 

CLOSI(fyle) ; 
INI draft aid; 



BIGIN 

— strings of^ 1 

a_mark: := **A*^'; x_mark := "x“; n_rriark := '.’n“; 
y'rrark := ’’l"; d rrark := ”d'; r rrark := "Pl"; 
blank := ” "; dash := star := 

null_string^^ := — no chdracters 

tlankln := 

dashln := " 



INC urglotai; 



PACSAGI urutil IS 

— This package provides utility routines to De used 

— in constructing a UNITRIP 

PROCirURI verify_number(number of digits: IN INTEGER; 

tetrp; IN DUT STRING; 
success: OUT BOOLEAN; 
nuirber: CUT INTEGER); 

— This procedure converts a string of nuirerical 

— characters to an integer or returns an error if 

— any character in the string is not 

FRCCirURE verif y_d tg(dtg: IN CUT STRING; 

success: CUT lOOLEAN); 

— Error checks date-tire groups. 

FROCirURE verify_lat_long(lat_long: IN OUT STRING; 

success: OUT lOCLEAN); 

— Error checks lat/long position reports 

EUNCTICN checksur (terrp : STRING) RETURN INTEGER; 

— performs checksurns on string teirp 

FUNCTION zer o_pad ( aumber_of _digi ts : INTEGER; 

terrp: STRING) RETURN STRING; 

— pads a string which represents a nurber 

— with zeros to fill out the field of digits 

FUNCTION getxy digits (x ,y, number of digits: INTEGER) 

RETURN string; 

— gets nu.nrber_of_digits at x,y and error checks 
ENE urutil ; 
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— JANUS/AEA Libraries 



WITH strlit, 
c 0 n s 1 0 , 
urglC'bal ; 

PACKAGI ECU urutil IS 
USE consio; 

USE urglcbai; 

— This paclcage provides utility routines to be used 

— in constructing a UNITHIP 

FRCCIIUPE verify_nurnber(number_of_digits : IN INTEGER,* 

terrp: IN OUT STRING; 
success: OUT 300LEAN; 
number: CUT INTEGER) IS 
USE striib; — Length ,Str_to_Int 

— This procedure converts a string of numerical 

— characters to an integer or returns an error if 

— any character in the string is not 

— largest valid entry is 32767. 

BEGIN 

5‘jccess := TRUE," 

I? lencthC temp ) = 0 THEN — checK for no input 
success := FALSE; 

ELSE — check for ascii '0' -'9' 

temp := zerc_pad (number_of_digits ,temp) ; 

FOR 1 IN 1 . . numher_o f_di gi ts LOO? . 

CASE temp( i ) IS 

WHEN ' ' => terrp (i ) := '0'; 

WEEN 'd'..'9' => null; 

WEEN OTHERS => success := FALSE; 

EME case; 

ENE loop; 

INE Ii; 

n success THEN 

nurrter := Str_to_Int ( temp) ; 

-- range check 

I? number NOT IN 0. . (10"'‘’'‘number_of_digits ) - 1 TEEN 
success := FALSE; 

FNE if; 

ELSE 

nuirber := 0; 

ENE n; 

ENE veri fy_num ber ; 
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JUNCTION checksum ^terrp : STRING) RETURN INTEGER IS 
USE strlih; — Extract, Str to Int, Length 

BEGIN “ ■ 

nuiTter := a; 

FOR 1 IN 1. .Length ( temp) LOOP 
nuirter := number + 

Str_tc_In t ( Ex tract ( temp , i , 1 ) ) ; 

II number >= 10 THEN 

number number - 10; 

INI ie; 

INI loop; 

PETUEN number; 

INI checksum; 

PROCEDURE verify dtgldtg: IN CUT STRING,* 

success: OUT BOOLEAN) IS 
USE strlib; --Length , Ex ti-'ac t 

— Error checks date-time groups, 
sue: ecolean; 

temo: STRING; 

mon: STRING (3); 

dnum , hnum ,mnum ,ynum : IN TEGER ; 

BEGIN 

success := TRUE,’ 

— check for incomplete string 
II (Length (dtg) /- 12 ) THEN 
success := FALSE; 

ELSE 



— rangecheck date 1-31 
temp := Extract (dtg, 1, 2) ; 

veri fy_numoer (2 , temp ,suc ,dnum) ,’ 

IE ( NOT sue OR (dnum < 1) OR (dnum >31)) 
TFEN success FALSE,* ENE IF; 

— rangecheck hour 0-23 
temp := Extract (dtg,3, 2) ; 
verify_rum ter (2 , t emu , sue ,hnum ) ; 

IF (NOT sue OR (hnum < 0) OR (hnum >23)) 
TREN success := FALSE; END IF; 

— rangecheck minute 0 - 59 
temp := Extract (dtg, 5,2) ,* 

veri fy_num cer (2 , temp .sue ,mnum ) ; 

IF (NOT sue OR (mnum < 0 ) OR (mnum > 59)) 
TEEN success := FALSE,* END IF; 

— check for "z” seperator 
temp := Extract (dtg, 7, 1) ; 
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U (temp /= "Z") TEZiM ;= 'z'; INC II; 

— rangecheck month 
mon := Ext ract ,(dtg,^8 ,3 ) ; 

I! NCT ( (mon= JAN ) OR (mcn= liB ) OR (mon = ”m,AR ) 

OR (mon="APR") OR (mon=="r';.Y’ ) OR (mo n=" JUN" ) 

OR (mon= JUL’ ) OR (mcn=’’AUO * ) OR (mon="SZP’ j 

OR (mon = "OCT") OR (rron='‘NCV" ) OR (mon="E5C'’) ) 

THIN success := FAISI; ZNE IP; 

— rangecneck year S2 - 99 
temp := Extract (dtg , 11 ,2 ) ; 
veri fy_number(2,teirp ,suc ,yrjum) ; 

IE ( NOT sue OH (yaurr < 82) OR (ynum > S9) ) 

THEN success := FALSE; ENL IF; 

ENE if; 

IE NCT success 

TEEN null; — range error - fall through 
— no other checks required 
— check for comoina ti cnal errors 
ELSIE ( (mon = FEB ) ANE 
( (dnum > 29) OR 

( (dnum •- 29) ANE (ynur med 4 /= 0) ) ) ) 
TEEN success := FALSE; 

ELSIF ( ( (mon = ’‘NOV'‘ ) OR ( mon="A?R'' ) OR 

(mon=”JUN'') OR (mon = ”SI?'‘ ) ) ANE (dnum > 30) ) 
TEEN success := FALSi.; 

ENE if; 



IE NOT success THiN 
e r r 0 r ( 1 ] ; 

dtg ;= ’ddhhmmZf'h.r'yy " ; 
ENE if; 

ENE verify_dtg; 



ROCEEUPE verify_lat_long(lat_long : IN OUT STRING; 

success: OUT BOOLEAN) IS 

USE strlib; — Length, Extract ,Str_to_Int ,Char_to_Str 
— error checks lat/long positions 



sue: bcclian; 
temp: STRING; 

la t_d eg , lat_mln , long_deg, long min , 

la t_check , long check: INTEGER; 

BEGIN 

success := TRUE; 
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IJ Lenglh( lat_long) /= 14 THIN 
success : = FALSE; 

ELSE 

. — check latitude 

terrp := Extract (lat_loag, 1,2 ) ; 
veri fy _nurrtier ( 2 ,t etrp , su c ,lat deg) ; 

IE ( (NOT sue) CR (lat_deg NOT IN 0..S2)) TEEN 
success := FALSE; ENI IE; 
terrp := Extrcct(ldt_long,3,2) ; 
verify nurrter (2 , teirp, sue , lat _irin ) ; 

IE ( (NOT sue) OR (lat Tin NOT IN 0..59) ) THEM 
success := FALSE; £Nl IE; 

IE lat long(5) /= 'N' ANL lat_long(5) /= 'S' TEEN 
success := FALSE; ENE IE; 

lat_long(7) := 

— check longitude 
terrp := Ext ract ( lat_l ong , 8 ,3 ) ; 
verify_nurrber ( 2 , t etrp, sue , long_aeg ) ; 

IE ( (NOT sue) OR (long_deg NOT IN 2.. 180) ) TEEN 
success := FALSE* 

ENE if; 

terrp := Extract ( lat_long, 11 ,2 ) ; 
verify_nur^ber (2 , terrp, sue ,long_rrin) * 

IE ( (NOT sue) OR (long_rrin NOT IN 0 . . 59 ) ) THEN 
success := FALSE; 

ENE if; 

IE iat_long(13) /= 'E ' ANE lat_long(13) /= "W' TEEN 
success := FALSE; 

ENE if; 

ENI ie; 

IF success THEN 

— checks degrees too large 

IE ( (Str_to_Int (Extract(lat_iong,l ,4) ) > 90_0O) OR 
(Str_to_Int (Extract (lcit_long ,8 ,5 ) ) > 180_00 ) ) TEEN 
success .*= false; 

ENE if; 



— latitude checksurr 
terrp := Extract (lat_long ,6 , 1 ) ; 
verify_r.urrber (1 , terrp, sue, lat check ) ; 

IE (NOT sue) OR ELSE 

lat_check /= checksurr (Extract (lat_long ,1,4) ) TEEN 
success := FALSE; 

ENE if; 

— longitude checksurr 
terrp := Ext ract ( lat _long , 14 , 1) ; 
verify_nurrber(l, terrp, sue , long_ check ) ; 

IE (NOT sue) CR ELSE 
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long_chec]c /= checksun; { Ext ract (la t_iong ,8 , 5) ) TEEN 
success := FALSE; 

INI if; 

INI if; 

IF NOT success THEN 

error(ie); — invalid lat_long position 

lat long := "ddrrirBC-dddirrrEC" ; 

ENI if; 

ENI verify_lat_long; 

FUNCTION zero_pad (nuircer_of_digits : INTEOEP.; 

te.-np: STPING) RETUPN STRING IS 
USE strlib; — Length 

BEGIN 

buffer := terrp; 

WHILE Length(buf fer ) < number_of _digi ts LOOP 
buffer := *0” & buffer; 

ENI LCOP; 

RETUPN buffer; 

ENE zero_pad; 



FUNCTION getxy_digits (x ,y .number of digits: INTEGER) 

RETURN STRING IS 

USE strlib; — Char to_St r , Extract , length 

key: CHARACTER; 

buffer: STRING; 

success: 3COIEAN; 

number: INTEGER; 

BEGIN 

LOOP 

getxy_imirediate(x ,y ,key ) ; 

IF key = no_input THEN 
buffer := null string; 

exit; 

ELSE 

buffer := Char_ to_S tr ( key ) ; 

FCR i IN 1 . ,nurrber_of _digi ts-1 LOOP 
getxy_irriredidte (x+i ,y .key ) ; 

EXIT WHEN key = no_input; 

buffer := buffer & Char_to_Str (key ) ; 

END ICCP; 

— strip trailing tianks 
FOR i IN REVERSE 1. .Length( buffer ) LOOP 
EXIT WEEN buffer(i) /= ' 

IF buffer(i) = ' ' THIN 

buffer := Extract f buffer ,1 .i-1 ) ; 

END if; 

ENT loop; 

if buffer /= null_string THEN 
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verify_nurrber(nurrber_of_digits, 

buffer, sue cess.nurrber); 
EXIT li'KEN success; 
error(19); — invdlid nurrber 



5ISE 

exit; 

END if; 

INI if; 

END ICOP; 

RETUHN buffer; 
3;NE getiy_digits ; 


— return null_striag 


ENI urutii; 
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PACXAGI \:rtes: IS 

— Provides for gathering testing data of the ROS 
— UNITRI? system 

test_file: 

PROCSrURI open_ini tial _ te St ( serial : IN STRING); 
PH0GSDUR5 cpen_test; — intermediate test 
PROCZrGFI closetest; — intermediate test 
PROCZCURZ clcse_finel_test; 

ZNI urtest; 



IC-i 



— JAKUS/ALA liDraries 



ITE lo , strli D , 
c 0 n s i 0 > 

PACKAGE BCEY urtesl IS 
USE consio; 

— Provides for gathering testing data of ttie EOS 
-- UNITRE? systeir. Test file TESTXXX results on B: 

— disk 

test_numter: INTEGER; 
testee_aarre : STP.ING(3C); 
start_tiire,stop_tiire: STRING(12)J 
corrirent: STRING; 

PROCEE13PE open_init ial_test (serial : IN STRING) IS 
USE io; — Open .CLOSE .DELETE ,Crea te 

USE strlip; — Int_to Str 

filenaite: STRING(14); 

BEGIN 

— get the test nurrfcer 

Open ( test _file , "TEST000 ” , Read_Cnly ) ; 

GET{test file, test number); 

CLOSE (test_file) ; 

— increment the test nun ter & store 
test number := test_numDer - i; 
rELETE("TESTv'?00" ) ; 

Cr eat e( t est _f ile , "TEST002 " , wri te_ Cnly ) ; 

Open( test_file ,’’TEST000'’ ,’.vrlte_Only ) ; 

PUT ( test_file , test number); 

CLOSE( test_file ); 

— open the file for THIS TEST lata 
filename := ”B;TEST” & Int_ to_Str (test_number) ; 
:ZLETE(filename) ; 

Create( test _f i le , filename .Writ e_0nly ) ; 

— u should check disk full S. full directory 
Open( test_f ile , filename ,W ri te_Only ) ; 

— start test mask 
cl ea r_screen ; 

putxy(0,3,"RCS UNITREP TEST INFORMATION"); 
putxy(0,€, 

"enter Drafter Rank/Nam.e; — ); 

putxy(0,9, 

"enter Start Time (Local,,- ex. 19DuCS2 1630) ); 
putxy ( 25 , 11 , "ddMMMyy hhmm’’); 

— get screen dcta 
getxy (25,6, testee_name,30) ; 
ge tzy ( 25 , 11 ,st art_t ime, 12 ) ; 

PUT ( test _file, filename 

S." test data on UNITREP serial " & serial); 
NEW_LINE( test_f ile) ; _ 

PUT (test_file, "Drafter: testee_name ) ; 

NEW LINK test file); 
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PUT ( te st_f i le ,"S ta rt Tirre: "S. start _i Ime ) > 

NEW LINE(test_file) ; NEW_LINE( test_f ile ) J 

PUT (test file,” EPRORS RAISEB ”); 

MW_ilNE(test_file) ; 

— errors will be supplied frorr PROCEDURE error in 

— package urglobal 
END open_i nit ial_test ; 

PROCEDURE open_test IS 

USE io; -- Open .CLOSE, DELETE ,Cree te 

USE strlibj — Int_to_Str 

— inter iTediate test data 
filencrre: STRING(14); 

BEGIN 

— get the test nuirber 

Open( test_f ile ,"TEST000” .Read _ Only ) ; 

GET ( t est _f i le , t est_nurrber ) i 
CLOSE(test_file) ; 

— increrrient the test numcer & store 
test nurrber := test_nurrter + 1> 
delete ("TEST000"); 

Create(test_file,"TEST000",'*rite_Only); 

Cpen ( test _f ile , "TES T000" , Wri te_Cniy) ; 

PUT(test_file, t est_nuirb6r ) ; 

’ CLCSE ( t est_f ile) ; 

— open the file for THIS TEST data 
filename := "3:TEST" & Int_to_Str{ test_ruiTbei ) ; 
DELETE (filendire ) » 

Create( test_f ile .filename ,»rite_Cnly) ; 

— should check disk full & full directory 
Open( test_f ile, filename, Write_Cnly) ; 

END open_test; 

PROCEDURE close_test IS 

USE io; — close; 

— int ermedidte test ddta 
BEGIN 

CLOSE( test_file) ; 

END close test; 



PROCEDURE close final_test IS 
USE io; -- CLOSE 

BEGIN 

— set close test screen 
cl65r scr0snj 

ptUxyT0,3,"RCS UNITREP TEST I NEOPrAT ION " ) ; 
putxy (0,6, 

“enter Stop Time (Local - ex. 19DECS2 1S30}"); 
nutxy ( 25 ,8 , "ddf^f^f^yy hhmm"); 
putxy (30 .10 , “GOmrENTS (8 lines max)"); 
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getxy (25 ,8 , stop_tirre , 12 ) ; 

PUT(test file, Slop Time: ”& slot)_time); 

NEW LINEltest file); 

PUT(test file, COr^t^ENTS 
NEW_LINE(tesi_file) ; 

-- test comjrent rrdsk 
FCB y IN 11.. 19 LOOP 
FOR X IN 0..79..LOOP 
putiy (i ,y ) ; 

EM loop; 

ENE loop; 

EOR y IN 11.. 19 LOOP 
getxy(2 ,y ,corrrrent ,80) ; 

EXIT WEEN corrment = 

FEKtest file ,corrtrent ); NEW_1INE ( test_f il e ) ; 
ENT loop; 

CLCSE(test_file); 

ENI close_f indl_test ; 

ENE urtest; 
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FACKAGS urgibl IS 

— contains structure of the corrn-ent_set used in 

— preparation of AMPN/Pt'SS 

— !Tiax number of comment lines for ampn set 
rrai_corrment : CONSTANT ;= 10 ; 

— for message line 6S - (At^PN/ or PN5S/) S. // = 62 
mai_line_length : CONSTANT := 62» 

TYPI comment set IS 
HICORI 

change: rOOIEAN; 

numler_of _1 ines : INTIGEP.; — constrain 1 . .max_ccmment 
INI P.ECCRI); 



INI urglti; 
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WITH urlccdlA; 

PAC5AGI unit. repA IS 
USi uriooelA; 

--- The basic unitrep data set and variable 
— for data structure A, LOCAL inforiration 



TYPI r-nitrep set IS 
I I COP I 

1; local set; 
INI 5 score; 



u: unitrep_set; 
INI unitrepA; 
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VITE urglti; — for corrn’ent_set 

PACKAGE urlocalA IS 
USE urgltl? 

— This package proviles the data set definition 

— for the LOCAL data used in UNITREP construction 

— general local information 
TYPE status set IS 

RECORI 

transmitted: BOOLEAN: 

last_serial: STRING(3)»* 

feeder_repor t : 300LEAN; 

unit_id: STRING(30)J 

curren t_seria 1 : STRING(3); 

ampn: comrrent_set ; — for l^SGIE/UNITID sets 

INI record; 

TYPE class IS (unclas ,conficential .secret ,top_secret ) ; 
TYPE prec IS (routine, priori ty, immediate .flasn); 

TYPE message set IS 
RECCRE 

precedence: orec; 
dtg: STRING (12); 
originator_ address: STRIIJG(50) ; 
classification: class; 
declassification: STHING(ei) ; 

INI recore; 

TYPE one ration set IS 
RECCP.r 

underway: BOOLEAN; 

codeword: STRING(32); 

pla n_org_number : STRING(23); 

ENE recore; 

TYPE eierci se_set IS 
RECORE 

underway: BOOLEAN; 
nickname: STRING (62); 

ENE RECORE; 

TYPE position set IS 
RECCRE 

change: BOOLEAN; 
lat_long: BOOLEAN; 
present_locat ion : STRING(20); 
dtg: STRING(12); 
ampn: comment_set; 

ENI RECCRE; 
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— rraiirrurr # of rerrarks pa^es, 10 iines/pag(: 
rrax_riTks_pages : CONSTANT ;= liZ; 

TYPE remarks set IS 
PECCPE 

change: ECOLEANJ 
nnirter_of _pages : INTEGEPj 

— constrain i . .nax_:rmks_ pages 
rage: ARHAI ( 1 . .rrai_nrks_pages ) 05 corrrrent_set > 

INI HICOPi; 



TYPE local_set IS 
PECCPI 

change; BOOLEAN? 
status: status_set; 
message: message_set; 
operation: operation_set; 
exercise: eierci se_set; 
position; position_set; 
remarks: remarks_set? 

ENi record; 

END urlocalA? 
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WITE u radtni n3 ,u rai r3 ; 

PACEAGI unitrepi IS 
USE uradrrinB ,urair3 ; 

— The basic unitrep data set and variable 
— for data structure £ - AIR and ADMIN 



TYPE unitreu_set IS 
HECORE 

ad: adirin_set; 
ar : air_set; 

END record; 

u: n.nit«rep_set ; 
END unitrep£; 
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for cotrirent set 



WITH iirgiti; 
PACKAGE uradfrinB IS 
USE urglti; 



— This package provides AEMINISTHATI VE data set 

— declarations for UNITREP construction 



— adtrin TYPE declarations 
TYPE phys_status IS ( onboa rd ,depa rted ) ; 

TYPE n_rep_org IS 

(cno,cincpacflt,cinclantflt ,c incus naveur ) 

TYPE verification IS ( valid , cor rect ed ) ; 

TYPE command_set IS 
RECCRB 

change: ECCIEAN; 
cooic: STRING(30); 
dtg; STRING(12); 
airpn : corriTent_set; 

ENI RECORi; 

TYPE dctiv_set IS * 

RECCRB 

change: BOOLEAN; 

dctivi ty_code : STRING(2); 

airpn: cornren t_se t ; 

ENB recorb; 

TYPE iredic_set IS 
RECCPB 

change: BOOLEAN'; 
status: phys_status; 
airpn: corirent_set ; 

ENB RECORB; 

TYPE ret) crg_set IS 
RECCPB" 

change: BOOLEAN; 
new_rep org: n_rep_org; 
dtg: STRING(12); 
arrpn: corrtren t_set ; 

ENB recorb; 
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TYPI verify_sei IS 
RiCCHP 

change; BOCLIAN; 
f eedtack_ver : verification 
arrpn: coirirent_set » 

INI ricord; 

TIPI adirin set IS 
HICCRD 

change; BCCLEANJ 
cotrmand; corrtrand_set ; 
dctiv; activ_set; 
rredic; rredic_set; 
reporg: rep_org_set; 
verify: verify_iet; 

INI RECcpr; 

INI uradninS; 
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WITH ur^llji; — for comment set 

PACKAGE urdlrB IS 
USE urglti; 

— date str\:cture definition for AIR Situation 

— of a UNITREP 



rrai recon: CCNSTANT := 11 ; ~ set ty OFNAVINST 3503. 
TYPE recon_set IS 
RECOPr 

change: BOOLEAN? 
delete: BOOLEAN: 

aurrter_of _cape cilities : INTEGER? 
capability: APRAT( 1 . .irax_recon ) OF STRING(8)? 
arrpn: cofrment_set ? 

ENE 5ECCPB? 



TYPE crewstat set IS 
RECOEE 

change: ECOIIAN? 
delete: BOOLEAN? 
formed: STRING (2)? 
ready: STRING (2)? 
ampn : corrn-ent_set ? 

ENE EECCRD? 

TYPE airstat_set IS 
RECOPr 

change : BOOLEAN ? 
delete: BCCIEAN? 
possessed: S7RING(2j? 
fmc : STRING (2) ; 
pirc: STRING(2); 
ntrc : string(2)? 
ampn: comirent_set ? 

ENE EICCRr? 

TYPE dispersed_aircraft IS 
RECOEE 

change : BOOLEAN ? 
delete: BOOLEAN? 
iss : STRING(30) ? 
alrstat: airstat_set? 
crevstdt: crewstat_ set? 
recon: recon_set? 

ENE RECOEE? 



TIPI duthori zat ion_58T. IS 
EICCPI 

change; BOOLEAN; 
delete; 200LEAN; 
iss; STRIN0(2); 
arrpn; comrrent set; 

ENE recced; 

trax_locations ; CONSTANT ;= £; — ECS design decision 
TYPE aircraf t_type_s8t IS 
RECORI 

change; ECCIEAN; 

delete; BOOLEAN,* 

iss; STRINGf?); 

ac_auth; authori Za t ion_set ; 

criws_auth; authorization_set; 

nurrter_of _locat ion s ; INTEGER; 

location; ARRAY (1 . .[rax_locations ) CF 

di spersed_ai rcraf t 

ENE recced; 

rrax_ac_ types ; CONSTANT ;= 5; — ROS design decision 
TYPE air set IS 
RECORD* 

change; IOCIEAN; 
nuirter_of_ac_types ; INTEGER; 

ac_type; A.RRAY ( 1 . .iDai_ac_type s ) OF aircraf t_type_set 

ENE recced; 



ENI urairB; 



WITH lo ,util ,chainlil) ,strlib , — JANUS/AEA libraries 
consio,printio , 
filerA, 

urglobal ,urutil , 

— # urtest, 

unitrepA, 
urlocalA? 

PACKAGE lOIT unitrep IS 

USE lo, — Cpen, CLOSE, Create, EEIITE 

chalnlib, — Simple_Chaln 
cons ! 0 ,printl 0 , 
filerA, 

urglo lal ,urut il , 

— # urtest, 

unitrepA , 
urlocalA; 



PRCCEEUBI check_required_files IS 

— checks to make sure all neccessary files 

— are present 

BEGIN 

— program status 

IE NOT valid_file('’STATUS") THEN 

terminate (file_error , "STATUS “) ; END IE; 

— the data structure 

IE NOT valid_file("UNIT200" ) TEEN 

terminate (flle_error, "UNIT000" ) ; ENT IE; 

-- serlal/dtg crossref 

IE NOT valid_flleC‘CROSSREE") TEEN 

terminate (file_error, "CHOSSREE" ) ; END IF; 

— addressees 

IE NOT 7alid_file('’ACTI0N") THEN 

terminate (file_error, " action" ) ; END IE; 

IF NOT valld_file("lNEO.") TEEN 

termlnate(file_error,”lNEO") ; END IE; 

— error iressages 

IE NOT valid_file("EHHMSG") THEN 

t erminat e ( f ile_er ro r , "ERR^SG ' ) ; END IE; 

— helo text 

IE NOT valid_file("HELP,.m") TEEN 

terminate(f ile_error, " help") ; END IE; 

IE NOT valld_flle("DRAET.TXT") TEEN 

terminate (file_error , "draft . TXT" ) ; END IE; 

— « test info - remove from production 
— # IE NOT valid_file( "TESTOeo") TEp 

— f* terminat e ( f i le_error , " TSST000" ) ; END IE; 

— reference tables 

IE NOT valid_flle("TA3LI.3-2") THEN 

t erminat e (fi le_error , " table . B-2 ") ; END IE; 

IE NOT valid f lie ( "TA3LE. 3-T" ) TEEN 
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teririnate (file_error, " table. 3-3" ) ; ENT IF; 

IF NOT valid_file("TAELE.B-e") TEEN 
ternrinate(file_error /’TABLE. B-6" ) ; ENL IF; 

— module for urlocal 
IF NCT valid f i le ( "UN ITREPl . CO^-" ) THEN 

terminate (file_errcr, "UMTHEPl .CCm" ) ; END IE; 
-- module for urair and uradmin 
IF NOT valid_filer"UNIT5E?2.C0h‘” ) THEN 

terminate(file_error/’UNITHEP2.CCM"); END IF; 
IF NCT valid_file(”UNITBEP3.C0r-" ) TEEN 

terrrinate(file_error, "UNITREP3 .CCr^" ) ; END IF; 

ENI checlc_required_f lies; 



PROCEDURE signon IS 
BEGIN 
"border; 

X)Utxy(0 ,3, 

"sign on - ROS UNITREP STSTEf' - VERSION 1.1 - JAN S3"); 
putiy(2,5, 

"The Current Workfile is UNITREP Serial ."); 

putxy(39, 5, u.l. status. current_serial); 

IF u .1 . status .transmitted TEEN 

putxy,(0,8 ,"lt HAS been logged as transmitted: DTG"); 
putxy (39 ,8 ,u . 1 .message. dtg) ; 

ELSE 

uutxy (0 ,8 , " 1 1 HAS NOT been logged as transmitted."); 
END n; 
putxy(10,20, 

<ENTER> to continue, ENTER <?> for HELP information: ); 
LOOP 

getxy immediate (63 ,20 , key ) ; 

CASE key IS 

TwHEN no_input I space => EXIT; 

WEEN ques => 

heipC’siGN on"); exit; 

WHEN OTHERS => error(6); — incorrect innut 

END case; 

ENL loop; 

END signon; 

PROCEDURE choose_action(action_is : CUT action_state) IS 

— selects one of the erecutaole RCS UNITREP 

— actions 

PROCEDURE initialize_action IS 
BEGIN 

FOR i IN action RANGE draft.. quit LOOP 
action is(i) := FALSE; 

END loop; 

INI initialize action; 
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PROCIEURE dctionira sir IS 

— draws the action screen 
BEGIN 
■border; 

putxy ( 68 , 1 , ’’serial "& u. 1 .status. cnrrent_serial ) ; 
putxy( 2,3 /’action N!ENU”); 

putxy ( 19 ,5 , ’’-1- Prepare UNITREP Lraft Eocuirent”); 
putxy( 19,6 ,”-2- Initiate New UNITREP"); 
putiy(lS,7, 

"-3- Remo ve/Modlf y/Add lata to Pending UNITREP") ; 
putxy ( IS ,8 , _^-4- Print Message Format Hard Copy ” & 
”of Pending UNITREP"); 

p u t ly ( IS f S f 

'‘-5- Log Pending UNITREP as Transmitted"); 
pu txy ( 19 , 10 , ][-6- Erase Fending UNITREP"); 
putxy ( 19, 11 , ’’-7- Prepare Verification Summary"); 
putxy ( 19 , 12 , "-8- Quit"); 

putiy ( IS , 14 , "enter the desired action: ’’ ) ; 
putxy (0 ,15 ,dashln ) ; 

ENI actionmask; 



desired action: CEARACTIR; 



BEGIN 

LCCP 

initializ e_a c t i o n ; 
actionmask; 

getxy_immediate('45,14,desired_action); 
CASE desired action IS 



exit; 

=> dction_is( neww) := TRUE; 

exit; 

action_ls(modify) := TRU; 

exit; 

action_is ( print ) := TRUE 

exit; 

action_is( log) := TRUE; 

exit; 

action_is ( erase) := TRUE 

exit; 

action_is (verify ) := TRU 

exit; 

action_is(ouit ) := TRUE; 

exit; 



WEEN 


'1' => 


WHEN 


' 2 ' => 


WHEN 


' 3 ' => 


WEEN 


' 4 ' => 


WHEN 


' 5 ' => 


WEEN 


'e' => 


WHEN 


"7' => 


WEEN 


' 8 ' => 


WEEN OTHERS 

EM case; 



— incorrect input 



ENI LCCP; 

ENI choose action; 
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PROCEIURZ process act ion ( dction is: IN' OUT action_state; 

success: CUT lOCLZAN ) IS 

USE iOtStrlib; 

— > perforrrs required file actions to corrply 
— vit)i 3ction_is 

filenerre: STRING(14); 
serial; STPING(3); 
dtg: STSING( 12) ; 



BEGIN 

nrograr . vorkf i le := ”UMT002’'; 

U actio:i_is(draft ) THEN 

IE NOT c . 1 .status .transmitted THEN 

putxy(0,ie,’’The Current '*'orkfile has not^^been " & 
"transmitted. Bo you want ..."); 
putxy(5 ,17, "( ) Draft of the Current Wo rkf i le " ) ; 
putiy(5,l£, 

"( ) Draft of the last submitted UNITREP"); 
putjy(21 ,20 , "enter <X> as required"); 

IF mark (6, 17) THEN — use current UNITREP data 
success := TRUE; 

ELSIE mari:(6,18) TEEN 

— get last submitted UNITREP data 
filenamf; := "B:UNIT"& u . 1 . status .last_serial ; 

IF valicl_file(fllename) THEM 
program .workfil e := filename; 
succe;is := TRUE; 

ELSE " Invalid file 

error ( 2 ) ; 
success := FALSE; 

ENT if; 

ELSE — this action was not desired 
success := FALSE; 



END if; 

ELSE 

success := TRUE; 

END if; 

IE success THEN 
line_count := i; 
set_f ormat ( text ) ; 
putxy(0,20,blankln) ; 

putxy ( 0 ,20 , "Select Areas for Draft Document, 
"Ready printer & <ENTER>"); 
getxy_immedlate ( 59 , 22 ,key ) ; 

END if; 



— use current UNITREP data 



-- in printio 



ELSIE action_is (neww) THiN 

IE NOT u . 1 . status .t ransmitted THEN 
error (7 ) ; 

-- current not transmitted, modify or erase 
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success := FALSE; 

USE 

success := TRUE? 

INI IF? 

ELSIE acti on_is (irodif y) TEEM 
IE u.l .status .transtri tted TEEN 

error(8); — current transmitted, initiate new 

success := FALSE; 

ELSE 

success := TRUE; 

EM if; 

ELSIE action_ls (print ) TEIN 

putxy ( 0 ,16 , ”Eo You want a message format hard " 
"copy of 

pu tzy (S ,17 , ” ( ) Pending UNITREP”); 

putxy (8 ,1S, ”( ) Old UNITRSF: serial or ” S. 

”dtg: ddhhmmZMrni^yy " ) ; 

putxy( 17 ,20 , "enter <X> and data as requirsd.”); 

II mark(9,17) THEN use current UNITRE? data 

success := TRUE; 

ELSIF mark(9,18) THEN 

— use old UNITREP datct, get serial or dtg 
getxy (32 , 18 , seria 1 , 3 ) ; 

IE serial = null string TEEN — ^et dtg 
LOO? 

getxy(4e,lS,dtg,12) ; 
verify_dtg(dtg, success) ; 

EXIT WHIN success; 
putxy(46,ia,d tg) ; 

END loop; 

Open ( f yle , "CROSSRIF " , Pead_Cnly ) ; 

LOOP 

duffer ;= 0IT_LINZ( fyle) ; 

IF Ext ract ( buf f er ,5 , 12 ) = dtg THEN 
— dtg matches file 
CICSE(fyle);.. 

filename := ”3:UNIT”& Extract f buf fer , 1 ,3 ) ; 
IE valid_f ile(f ilename) THEM 
program .workfile := filename; 
success := TRUE; 

exit; 

ELSE — invalid file 

error ( 2 ) ; 
success := EALSI; 

END if; 

ELSIF ENI_OE_EILI(fyle) TEEN 
CLOSE(fyle); 

error(9); — dtg doesn't cross to a serial 
success := FALSE; 
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exit; 

ELSE 

null; — get another line frorr Cf:OSS?.EF 

ENE if; 

ENE LCCP; 

ELSE -- use input serial 

filename := "BrUNIT" t serial; 

IF valid_file(filenarre) TEEN 
load_fIle(fllenan'e) ; 
program .workfil e := filename; 
success ;= TRUE; 

ELSE 

error(2); — invalid file 

success ;= FALSE; 

ENL if; 

ENE if; 

ELSE -- not the desirso. action 

success := FALSE; 

ENE if; 



— pick message format 

I? success TEEN 

EOR i IN 16. .20 LOOP 
putxy (0 ,i .blankln ); 

ENE loop; 

putxy(0 ,16 ,”rc you want the message in 
putxy(8,17,,"( ) OCR format"); 

putxy(8,18, ( ) Standard Naval Message format ); 
putxy(27, 20 /’enter <X>" ) ; 

LOOP 

IF mark(S,17) THEN 

set_format (ocr ) ; EXIT; 

ELSIF mark(9,18) TEEN 
set_f ormat (msg) ; EXIT; 

ELSE 

error(e); — choose one 

ENL if; 

ENE loop; 

line_count := i; — in printio 

putxy ( 20 , 20 , "Ready printer and <INTFR> ); 
getxy_immediate(44, 20 .key) ; 

ENE if; 



ELSIF action_is( log) TEEN 

IF u .1 .status .transmitted TEEN 
error ( 10) ; 

— cannot log an alreacy transmitted UNITREP 
success := FALSE; 

ELSE 

putxy( 2,16,"ENTER the transmittal dtg: " & 
"ddhhmmZMMMyy" ) ; 

LCCP 
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getxy(27,ie,u.l.iressage.dtg,12); 
verify_dig(u.l .message .dtg .success ) ; 

IXIT WHEN success; 
putiy(27,ie ,u.l .iressage.dtg) ; 

INI loop; 

u . 1 .status .transmitted := TRUE; 

u.l .status. last_serial := u . 1 . status . curr ent ..serial ; 
filename := "B:UNIT’'S. u .1 .status .current_serial ; 
program. workf lie := filename; 
store_file( filename) ; — completed data file 

store f ile("UNIT000”) ; — workfile 

— sHould Incorporate disk full, 

— ^ full directory checks 

— the insert_dtg block is neccessary due to the 

— lack of random access read/write procedures in 

— JANUS ADA. Greatly simplified in full ABA 
insert dtg: riCLARE 

TTPE'llst ; 

TYPE link IS ACCESS list; 

TYPE list IS 
RECOP.r 

serlal_dtg: STRING(16); 
next: link; 

INI recorb; 
mark, first ,1 : link; 

lEGlN 

first := NEW list; 

— initialize - not required in full ABA 
first .serial_dtg ;= u .1. status .curren t_serial & 

6. u . 1 .message. dtg; 

first. next := NULL; 
mark := first; 

Open(fyle , "CROSSREE” ,Read_0nly ) ; 

— read out old crossref data 
WHILE NOT INI 0E_EILE( fyle) LOOP 
1 := NEW liit; 

— initialize - not required in full ABA 
l.serial_dtg := GET_LIN5 ( fy le ) ; 
l.next := null; 
mark. next := i; 
mark := i; 

ENB loop; 

CLOSE(fyle) ; 

— write in the altered crossref list 
DELETE("CROSSREE"); 

Great e( fyle,” CROSSREE", Wri te_Cnly) ; 
mark := first; 

WHILE mark /= NULL LCCP 

PUT (fyle.mark. serial_dtg ) ; New_Line ( fyle) ; 
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rrark := mark. next; 

ENE loop; 

CLCSE(fyle) ; 

— Clean up nointers 
WHILE first /= NULL LOOP 
mark ;= first; 
first := mark. next; 

Eispose (mark) ; 

ENE loop; 

END insert_itg; 

success := T?.Ui; — EELSTE old AMP files on a: 

END if; 

ELSIE dcti on_is (erase ) THEN 

— if successful, erases current workfile and 
-- returns false, reselect choice for action 

IF NOT u .1 .status .transmi tted TEEN 

putxy( 10,16, "Confirm^ you wish to erase UNITHE? " & 
"serial " & u .1 . status .current_serial ) ; 

putxy(13,17, 

(It has not "been logged as transmitted) ); 
putxy(26, 18, "ENTER (I/N):"); 
getxy_immediate (38, IS, key) ; 

IF key = n TEEN — do not erase 

success := FALSE; 

EISIF key = y TEEN 

— erase if backup data is available 

filename := "B:UNIT" 6. u .1 .status .last_serial ; 

IE valid_f lle( f il ename ) TEEN 
program. workfile := filename; 
load_file( filename); 
store_file(”UNIT000") ; 
success := TRUE; — load uartB 
ELSE 

terminate( file_erro r, filename ) ; 

END IF; 

ELSE 

error(e); — incorrect input 

success := FALSE; 

ENE if; 

ELSE — file has been transmitted 

error(8); — initiate new 

success := FALSE; 

END if; 

ELSIE action_ is( verify) TEEN 
putxy(0,ieT 

"enter the__AS_OF verification serial: ); 

putxy (9, 17 , " ( 000 to restart) )• 
serial := getxy_digits(37 ,16 ,3) ; 

IF number = 0 THEN 
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restart on 000 



SDccess ;= ?ALSi; 

ILSl 

filenaire := "3:UNIT" & serial; 

II valld_file(filenapie) THEN 
succesi := TRUE; 
pro^jram . workfi le := filename; 

ELSE 

error(2); — required file not present 

success := FALSE; 

ENE if; 

5NI if; 

IF success TEEN 

3.ine_oount := i; -- in printio 

set_f crmat (msg); 
putxy( 0 ,20, blankln) ; 

cutiy(35 ,20 , "Ready Printer and <ENTER>"); 
^’€txy_imrredlate(59, 20 ,key ) ; 

ENf if; 

ELSIE acti on_i s ( qui t ) TEEN 

termina te (norma l,null_string); 

ELSE. — no action required 

success := FALSE; 

ENI ie; 

END ?rocess_action; 



RROCEE'JRE ohoose_areas (area_is: IN OUT area_state) IS 

— rr€.'nu selection of the UMTREP situation 

— area categories 

PROCEIURE initialize area IS 
BEGIN 

FOR i IN areas RANGE pers.. local LOOP 
area is(i) := FALSE; 

ENE loop; 

ENE initidlize_area; 

PROCEIURE areamask IS 

— draws the area screen 
BEGIN 

border; 

putxy(68,l , "serial u.l .status .current_seriai ) 
putxy(0,3,,’UNITREP SITUATION .YENU" ) ; 
putxy(9,5,"( ) -0- I'^odify Local Information"); 
putxy(9,7,"( ) -1- Personnel Status"); 
putxy(9,S,"( ) -2- Administrative Status"); 
putxy(9,9, 

■( ) -3- Unit Combat Readiness Assessment ); 



putiy (9 ,10.’' ( ) -4- Aircrdft dnd Crews Stdtus"); 
putiy (9 ,11 ) -5- ^'cljo^ Equiprreai Status"); 
putiy(g,12,"( ) -e~ Special Capabilities Status"); 
putiy (9,13, 

"( ) -7“ Increased lefense Readiness Status" )»\, 
putiy (9 ,15 , " ( ) -8- Reserve Augirentaticn Status"); 
putiy(9,ie,’\( ) -9- Type Corn’ander Reports"); 
putzy ( 15 ,20 , "enter <X> in desired report area(s)"); 
INI arearrasic; 

3IGIN 

LOCP 

initidlize_ared; 
ar eatrask ; 

area_is( local ) mark(12.5); 

area_is(pers) r^arkdC,?); 
area_is(adirln) := rrark(10,8); 
area_is(cofrbat) := ma rsC 10 ,9 ) ; 
area_i5(dir) := rrdrk ( 13 , 10 ) ; 
area_l s( equip ) ;= trark( 10 , 11 ) ; 
area~i s ( specap ) mar.!c( 10 ,12) ; 
area_i s(def ense ) := Fark ( 10 , 13 ) ; 
ar ea_i s ( res er ve ) t- (rark( 10 , 15 ) ; 
area~i s( tycoir) ;tiark( 10 ,16 ) ; 

n ar ea_i 5 (pers.) OR dred_i s ( coirbdt ) CR 
a rea_i s( equip } OR area_is (specap ) CR 
area~i s f defer se ) OR area_is( reserve) 

CR dred_is ( tycotr ) THEN 
putzy(0,20, 

SELECTEE AREA NOT irPLEMENTEE - CHOOSE ONLY; ii 
"LOCAL, ADMINISTRATIVE and/or AIP"); 
getzy iiTrT;ediate( 78 ,20 ,key ) ; 

ELSE 

put zy (0,20, blan kin); 
putzy(0,20, 

"<ENTER> to continue, ENTER <X> to reselect: "); 
reselect := rrdrk(44,20) ; 

EXIT WHEN NOT reselect; 

INI IE; 

ENE iccp; 

ENI choose areas; 



BEGIN — rrain body 
load_status ; 

— operations required by status 
IE prograrr . init ial_entry TEEN 
check reauired_f iles ; 

— # initial test data 

— « open_ ini t ial_ t es t (u. 1. status .cur rent _seridl ) ; 

signon ; 
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prograir .ini tlal_eniry .*= lAISi; 

USE 

— # open_test; — n interfrediaie test data 

load filerUMT000") ; 

END IET 

action : ICOP 

choose_action (actio n_ is); 
procesi_action(action_is,suc'cess): 

— required file operations 
EXIT VIEEN success; 

SM LCCF action; 

IE action_ls (modify) CP. actlon_i s( draft ) TPEN 
choose areas( area_ls ) ; 

END if; 



— direct program flow to next required module 
— # clos6_test; 

store status; 

putxyTsC , 22 , "stands I " ) ; 

IE acti on_i s ( log ) TEEN 

— reset local items in UnITCCCA 
Slnple_ChainrUNITREFl. com") ; 

ELSIE act ion_is (erase ) TEEN 

— recall/reset items in UNIT00CE. UNIT000A reset 

— in orocess action 
Simple_Chain("ENITREP2 . com") ; 

ELSIE act lon_is (print ) C? action_i s(d raf t ) 

OP action is(verify) CE action_l£ (neww) THEN 
Simple_Chain(’'UNITREFl.COM") ; 

ELSIE ac t ion_l s ( mod ify ) AND 

(NOT uTl. change OR area_i s( 1 oca 1 } ) THEN 

-- At least one entry into urlocal is 
— required to set .message items 
Simpl e_ Chain ( "UNITREFl . COM." ) ; 

ELSIE action is (modify) AND area_l s ( admi n ) TEEN 
S imple_ Chain ( "UNITP.EP2 .COm") ; 

ELSIE actlon_ls (mod ify ) AND area is(air) THIN 
Simule Chaln( "UNITPEP3. COM" ) ; 

END IE; 

Simple_Chain("UNITPEP.COM") ; -- restart 
ENE unitrep; 
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WITH chainlit), — JANUS ADA Library 

conslo ,prlntio , 
filerA, 

— tt urtest, 

urglobal , 
urlocal ; 

PACSAGI iCIT unitrepl IS 
USI chalalib, 

consio.printlo , 
filerA, 

— # urtest, 

urglobal , 
url ocal ; 

— Provides processing of UNIT?!? local 
— information and program control 



ilGIN 

load_status; 

IF program .prlnt_traller THIN 
process_local( trailer); 
program .print_traller := FALSE; 
store status; 

Sin'pli_Chain(”UNITBIP.CC^") ; 

ELSIE action_is ( log) TEEN 
process_local (header) ; 
store_file(urogratr.workfiie;; 
Simple_Chaln(”UNITHEP2.C0f"") ; 

ELSIE action_is (print ) CH dCtion_i s ( verify ) TEEN 
process_local(header) ; 
program . pri nt_t railer := TRUE; 
store status; — llne_count 

Simple_Chal n ("UNITEEPS. COt^" ) ; 

ELSIE action_is (draft ) TEEN 
process_local( head er ) ; 
program. print_trailer ;= TEUE; 

IE area_is(adrrin ) or area_is(dir) TEEN 
store status; — line_count 

Slrrpli_Chain(”UNITREP2.C0f^"); 

ELSE 

process_local(trailer); 
program .print trailer := FALSE; 
Simple_Chdin(”UNlTREP.CO^’ ) ; 

INI if; 

ELSIE actl on_is ( neww ) TEEN 
process_l ocal (header); 
store_file( "UNIT000”) ; 
Simple_ChainC’UNITBE?2.C0N'‘ ); 

ELSIE actlon_is (modify ) TEEN 
open_teit; 

process_iocal(header) ; 
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— # close_test ; 

store_file(”UNIT000") ; 
store status; 

putxyT30,22,"STANr3Y " ) ; 

IF area_is(ddrrin ) TE5N 

Slirple Chain(‘’UNITREP2. CO;^") ; 

ZLSII area_is(alr) TEIN 

Siirple_Chain("UNITEIP3.C0r<”) ; 

USE 

Sirrule Chaln(”UNITREP.CCM”) ; 

ENE if; 

— erase controlled in unitrep.coir (.pkg) 

ENE if; 

Simple_Chain{ "UNITREF.COt^”) ; -- restart 
ENE unltrepi; 
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— JANUS /ADA librciry 



VITE chdinlit, 

conslo ,prlntio , 
filers, 
urglotal , 

■ — ti urtest, 

unit repB , 
uradirin ,urair ; 

PACKAGli: BODY unitrenS IS 
USI chainlit, 

oonsio ,nrintio , 

filers, 

urglc Idl , 

— ^ urtest, 

unit rep 3 , 
uradirin ,ura ir > 

-- provides processing of UNITBZF adirinistrative and 

— air situation reports (excluding air rrodify) and 

— prograir control 



3IGIN 

load_status> 

IF act i cn_i s ( ver i fy ) OR action_is(print ) THIN 
process_adrrini stra ti ve; 
process^ai r ; 

stors_stdtus; -- for lia£_cour.t 
Siirrle Chain("UNITRFPl. COP" ) ; — print trailer 

FIS action is( draft) TEEN 
I? area_isTddirin ) TEFN 
nrocess_adrr mist native; 

END if; 

IF drea_is(dir) TBFN 
nrocess air; 

END if; 

store_status; -- for line_count 

Siirnle Chai n ( "UNI TREFl . COf^" ) ; — print_trai ler 

ELSIF*acticn_is(neww) THIN 
process_adrrini St native; 
proce ss_ai rf_ 
store f ile( ’UNITG00” ) ; 

Sirr?li_Chain("UNlTREP.COM"); — file zeroed 

ELSIE act i on_is (rrodify ) TEEN 
— P open_test; 

IF area_is( adirin ) TEEN 
prccess_ddrrini St native; 

store_file{"UNIT000*‘ ) ; — save new data 

INI if; 

IF area_is(air) TEEN 
— « close test; 

DU txy^ss , ;:2 , "standby ); 

Sirrple_Chain ( "UMTREP3. con" ) ; — proc es s_ac_ type 

END if; 
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-# 



close test; 

putxy(35T22 ,''STANr3Y. . . . . 
S i rr p 1 e _ C h d i n ( ■ ■ U N I T H E P . C 0 fi 
ELSIE action_is ( log) THEN 



" ^ 



/ 




4 



rerrove 



proces£_adrrinistrative; 
process”dir ; 

store file( program .wo rkfi ie ) j 
Siirpli_CiidinrUNITHIP.COM'') ; 

ELSIE action_is( era se) THEN v 

5tore_f i leT"UNIT000") ; — previously 
Simple Chain("UNITHEP.CCM" ;■ ; 

ENI ie; " 

Simple_Chain( "UNITREP .com" ) ; restart 



from production 



loaded old file 



ENE unitrepS; 
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-- JANUS /ATA litrdry 



WITH chdinli^:, 

consio ,prlatio , 
urglobal , 
filers, 

— # urtest, 

ural rl , 
unit repS ; 

PACKAGE SCIY unitrep3 IS 
USE chainliU, 

consi 0 .printio , 
urglotal , 
filers, 

— # urtest, 

urai rl , 
un i t repB J 

— provides processing of UNITHE? «ir 

— reports when action_is (rrodify ) and 

— control to return to main module 



SiGIN 

load_status; 

— # open_test; 

process_ac_type; 

— * close test; 

store_fiIe("UNIT0tJ0"); 

putxy(35,22,"STANE3y "); 

Siirple_Chain( "UNITREP .COM" ) ; 
ENE unitrepS; 



situation 

prograiT 
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PACKAGI fiierA IS 



— normal file handling operations for the ' h' cata 

— structure 

JUNCTION valld_file(fllename: STRING) RETURN BOOLEAN; 

— checlci for valid external files 

TYPE reasoa_code IS (normal ,fil e_error ) ; 

PP.OCIEURI tirminate ( reason : IN reason_code; 

filename: IN STRING) ; 

— exit point for the UNITREF program 

PROCEDURE load_file(filenaire: IN STRING); 

— loads a particular unltrep data set 

PROCEDURE store_file(filename: IN STRING); 

— stores a particular unitrep data set 

PROCEDURE load_status; 

— loads'and performs operations reo.uired by status 



PROCEDURE store_sta tus ; 

— stores'the status state 



END fiierA; 
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WITH io,util,strlib, 
con sio , pri nt io , 
urglobal , 

— a urtest, 

uaitrepA , 
crlocalA ,* 

PACIAGI iOIY filerA IS 



I3SI lo; 

USI printlo ; 

DSI urglo'bai; 

DSS unitrepA; 

USE orlocalA; 

— norrral file 

— structure 



— JANUS/ADA library 



— forrrat_is 

— act ion_i s,<area_is,forrrat_is 
— u,data types 

dandling operations for tde ' P.' 



data 



fyle: IIII; 

5UNCTICN valid_file(filenarre: STRING) RETURN 20CLEAN IS 
USE io; — Cpen, CLOSE, ICresult 
USE strlib; — Extract 

— opens FILENAME to checic presence. If EILZNAME 

— not present, returns FALSE otherwise closes 
— FILENAME and returns TRUE. 

BEGIN 

— A unitrep file 
buffer := filename; 

IE ((Extract(buffer,l ,4) =/'UNIT”) 0? 

( Ext r act ( buf f er , 1 , 4} = "E:UN")) 

ANL NOT 

((filename = "UNI TREPl . COM" ) OR 
(filename = "UNITREP2 .COm"} CR 
(filenarre = "UNITREP3 . CCM " ) ) TEEN 

-- due to check:_ requi red_f i les 
buffer := buffer & "a”; 

INI if; 

Op en( fyle, buffer ,Read_0nly ) ; 

IE ICresult = 2U5 TEEN — file does not exist 
RETURN FALSE; 

ELSE 

CLCSE(fyle); 

RETURN true; 

ENi if; 

ENI vaiid_file; 

PRCCELORE terrrinate (reason : IN reason_code; 

filename: IN STRING) IS 

USE consio; 

USE strlib; — Extract 

USE io.utii; — EAIT 

— a USE urtest; — test_file 

— This procedure is the exit point of the prograrr 
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— reason can tie either NOHf^AL or for FILI ZEBCE 
BIG IN 

- - save cur rent uni t rep data 
stcre_file( ’UNIT000"); 

I? reason = norrral TEIN 
— # ciose_ final_test ; 

prcgrarr .i:iitiai_entry := TRUE; 
store status; 

Halt;" 

ELSE -- reason is file_error 

buffer := filenaire; 

II (Extract (buffer ,1,4) = "UMT”) AM NOT 
((filenaire = "UNITRIP1.COM") CP. 

(filename = "UNITF.IF2 .CON" ) ) TEIN 

-- in check_r equi red_f i les 
buffer := buffer & "a"; 

INI if; 

-- initial file abort 
— # IF NOT IS_OPEN( test_f ile) THIN 

— « Cpen(test_file, "TEST.A£R",Write_Only) ; 

—a INI if; 

— # FDKtest file, 

— "file FPP.OR TERMINATION - " & filename); 

—• « NI’JV LINK test_file) ; NEV_LINF( test_f lie ) ; 

— # CICSK test_file) ; 

ciedr_£creen ; 

putX7(e ,3 ."FILE ERROR TERMINATION’’); 
putxy ( 2 ,5 ,)Duf f er S. ’’ is required " & 

"but not present on the assignee disk") 

putxy (0,6, 

’’Copy the required file to the proper disk.”); 
Halt; 

INI if; 

ENI terminate; 

PROCEDURE load_.fi le (filename: IN STRING) IS 

— 3cads~a oarticular unitrep data set 
BEGIN 

buffer := filename S, "a"; 

Open { fyl e , buff er ,Read_Only ) ; 

Read(fyle,u) ; 

CLCSS(fyle); 

END load_file; 

PROCEDURE store_flle(filename : IN STRING) IS 

— stores a particular unitrep data set 
BEGIN 

buffer := filename & "a"; 

DELETKbuffer ) ; 

Create(fyle,buff er ,Vrite_Cnly ) ; 
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Write (fyle,u) ; 

CLOSE ( fyle ) ; 

ENI stcre_file> 

PROCEDURE loed_status IS 

— loads and perfortts operations reouired Oy status 
BEGIN 

Open ( fyle /'status '\R eod_0nly ) ; 

Read(fyle,prograrr) ; 

CLOSE (fyie); 

acticn_is := prcgrair, cufrent_action; 
area_is := prograrr . curren t_a rea 5 
forrr'at_is := prograir . current _forrrat ; 

IE forirdt_is (rsg) TFIN 
set_f orrrat (rsg) J 
ELSIE forirat_is (ocr ) THEN 
set_f orrrat (ocr ) ; 

ELSE -- format is text 
set_f orrrat (text ) ; 
i! N r I E > 

line_count := prograrr .printing_llne; 

IE action _is(l eg) THEN 
load f ile {"UNIT000" ),* 

ELSE ■ 

load_filefprograir.worAfiie) ,* 

ENI ie; 

END load_status; 

PROCEDURE St ore_5tdtus IS 

— stores the status stats 
BEGIN 

— .unit set in urlocal, process local infreqv.ent 

— .initidl_entry set in uni trep (quit! and 

-- rain body 

— . print_trailer set in unitrep rraln body 
program .message_transrr!i tted := u .1 . status . t ransmit tea 
prograrr . current_<ict ion := dction_is> 

— set in uni trep. choose_actlon 
program . cur rent _area := area_is» 

— set in uni trep . choose_drea 
prograrr . current_fortrat := forrrat_is> 

— set in prlntio . set_f orrat 
program.printing_line := line_count; 

— set in prlntio. put_printer 

— .workflle set in uni trep . choose action 
lELETK "STATUS" ) ; 

Cr eat e( fyle , "status ", W rl te_ Cnly) ; 

Write(fyle, program); 

CLOSE (fyle) ; 

ENI store_sta tus ; 

ENI filerA; 



PACKAGE filers IS 



— rorrral file handling operations for the ' 2 ' data 

— stri’cture 

JUNCTION valid_file(filenatre: STRING) HITUPN 50CL5AK; 

— checi^i for valid external files 



TYPE reason_code IS (normal ,file_error) ; 
PROCirURI t erminat e (reason : IN reason_code; 

filename: IN STRING); 

— exit point for the UNITREP program 

PRCCErUF.5 load_flle(filenaire: IN STRING); 

— loads a particular unitrep data set 

PROCIEURE store_file(filenarre : IN STRING); 

— stores a particular unitrep data set 



PRCCSEURS load_status; 

— loads and performs operations required by status 



PROCIEURE store_status; 

— stores the status state 



ENE filers; 
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— JANUS/AEA library 



WITH i 0 ,util .strlib , 
consio , print io , 
urglobal , 

— ^ urtest, 

uni trepE , 
uradirinE ,urairE » 
PACKAGE 3011 fllerB IS 

USE io; 

USE printio; 

USE urglotai; 

USE unitrepB; 

USE urddrrinE,urairB; 



— format_is 

— action_ls ,area_is 
— u.data types 



— noriral file handling operations for the '3' data 

— structure 



fyle: EIIE; 



EUNCTION valid f i le ( f ilen arre : STBING) RETURN BOOLEAN IS 
USE io; Open, CLOSE, lOresult 

USE strlib; — Extract 

— opens JILZNAME to chech presence. If EIIENAyE 

— not present, returns EALSE otherwise closes 
— FILNAf^E and returns TRUE 

BEGIN 

— B unitrep file 
buffer := filenare; 

— check for UNITxxx3 files 
IE ( (Extract (buffer,! ,4) = "UNI?y/) OR^^ 

( Ext ract ( buf f er , 1 , 4 ) = "B:UN")) THEN 
buffer := buffer & ”3 ; 

ENE if; 

Op en(fyle, buffer, Read_Only) ; 

IF ICresult = 255 TEEN — file does not exist 
RETURN false; 

ELSE 

ClCSE(fyle); 

RETURN true; 

ENE if; 

ENE valid file; 



FROCErURE tern’inate (reason : IN reason_code; 

filenarre: IN STRING) IS 

USE consio; 

USE io,utii; — Halt 
— a USE urtest; — test_file 

— This procedure is the exit point of the urograir 
— reason can be either NORN!AL or for FILE_ZRRCH 
BEGIN 



V ^ L- 



— Save current unitrep late 
store_file( "UNIT000" ) ; 

II reason = normal THIN 
a close_final_test; 

Ea 1 1 > 

SLSI — reason is fileerror 

— check_require(i_files atort 
a II NOT IS_CPIN( test_f lie) piN 

# Cpen(test_flle,"TZST.A3H”,Wrlte_Cnly); 

# INI Ii; 

a ?UT(test_file , 

# ’‘IILE EHHOn TZ?.^'INATION - " & filename),' 

n N5W_LIM(test_file) ; NI'*' LINZ ( test_f i le ) ; 

a CICSZ( test_file) ; 

cl ear_screen ; 

putxy( 0 ,3 ,"IILZ ZHROR^^TZE'^INATION" ).; 
putiy (0,5,piename & ” is required " & 

"tut not present on the assignee d 

putiy(0 ,g , 

’’Copy the required file to the proper disk. 
Eal t J 
ZNE II ; 

INI terminate,* 

PROezrURZ load f i le ( f i lename : IN STRING) IS 

— loads~a oarticular unitrep data set 
EIGIN 

Puffer ;= filename S. "l"; 

Open ( fyle , Puffer ,Read_Only ) ; 

Read ( fyle.u ) ; 

CLOSE ffyle) ; 

INI load_file; 

PROCIEUPI stcre_f ile(filename : IN STRING) IS 

— stores a oarticular ur.itreu data set 
5ZGIN 

Puffer := filename S. "B ; 
rZLZTK buffer) ; 

Create( fy le .Puffer , Writ e_ Only ) ,* 

Write (fyle, u) ; 

CLCSKfyle ) ; 

INI store_file; 

PROCZBORI load_status IS 

— loads and uerforms operations required by 
BEGIN 

Open { fyle , "status" ,R ead_0nly) ; 

Read ( fyle .program) ,* 

ClCSZ(fyle); 

acticn_ls := program. current_action) 



sta tus 
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area_is := program. current_area; 
formcit_i5 := program .current_fcrmat ; 

II forrat_is (msg) THIN 
‘;ei_f ormat(msg) ; 

EISIF format is(ocr) TEEN 
set_format{ocr) ; 

ELSE — format is text 
set_f orma t ( text ) ; 

INL if; 

line count := program .printing_line ; 

IF NOT valid_file(’‘UMT000“) TEEN 

terminate^f ile_error, "UNIT000" ) ; — check UNIT0002 

ENE if; 

IF action_is.(log) TFFN 
load_file(’UNIT000”}; 

ELSE 

load_file (program.workf lie) ; 

INI if; 

ENL l03d_status; 

FPCCELUPE stcre_status IS 

— stores the status state 
BESIN 

— .unit set in urlocal, process_lccal_,in frequent 

— . initial_entry set in unitrep (quit) 

— and main body 

— .pr int _tr oiler set in unitrep mein tody 

— . message_transmi tted set ty filers 
program . current _act ion := action_is; 

— set in unitrep.choose_octicn 
program . current_area := area_is; 

— set in unitrep.choose_area 

pr ogrom . cur rent _fo rmo t := formot_is> 

— set in printio. set_format 
program .printing_line := ilne_count; 

— set in print io .put_printer 

— .workfile set in uni trep. choose_act ion 
EELETE( "status" ) ; 

Cr eat e ( fyle , "STATUS" ,Write_Cnly) ; 

>^rite(fyle, urogram); 

CLCSE(fyle) ; 

ENE store status; 



NI filer3; 



VITE uni t repA jUrlocaiA) 

PACKAGE urlocal IS 

USE un j trepA,iirlocalA ; 

— This package provides ICCAL routines for 
— UNITREP construction 

TYPE r'5g_part IS (hedder, trailer) » 

PBOCEPUPE* prccess_local (par t : IN msg_part); 

ENI urlocai; 
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WITH lo.strlib, — JANliS/AEA libraries 

consio, printio , 
urutil , 

urgltl ,urglobdl , 
urlocalA ,urlocall , 
unltrepA; 

PACKAGE ICET urlocal IS 
USE consio , printio , 
urutil , 

urgltl,urglobdl, 
urlocalA, urlocall, 
uni trepA; 

— Ibis package provides LCCAL routines for 
— UNITRE'P construction 

— Edtd sets MSGIB/UNITIE, OPEP. , EXER . POSIT, 
— Rf^KS are supported nere. 

— I^essage inforjation and ECLAS supported in 
— urlocdll 

PROCEEURE process_local (par t : IN rrsg_part ) IS 
USE strlib; — S tr_to_ Int , I n'C to_Str 

USE io; — Open,CLCSS,GE?rilN]; 



PROCEEURE process_local_misc IS 

USE strlib; ~ — Extrcct 

PROCEEURE localtrask_n'i sc IS 
lEGIN 

localrrask; 

putxy(30,3.,/'-N'ISCELIANECUS-’’) ; 
putxy (0 ,4 , ) -la- Cperation Underway"); 

putxy ( 1 ,5 ," r’ ) ; putxy ( 12 ,5 , ’ Opera tion Codeword"); 
putxy (4? , "Plan Originator and Nu:rber"); 
putxy( 1 ,e ,]^or" ) ; 

putxy(c,6,"y y ") ; 

putxy(4S,e,^ ); 

putxy(l,7,^J ); 

putxy( 0 ,8 , ) -lb- Exercise Underway ); 

putxy (1 ,9 , "] " ) ; put xy (30 , 9 , Exerc ise N'i cknaire" ) ; 
putxy( 1 ,10 ,’^or” ) ; 

?utxy(8,10 ," 

••); 

putxy(l,ll, I ); 
putxy(0,12, 

"( ) -Ic- Operation/Exercise Terrr inat ed" ) ; 

putxy(0,14, 

"( ) -2- Position - Required for ship/sub’); 

t:utxy(10,15, 

"Location (or EXE^'PT) or LAT/LONG'); 
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tutzy (57,15 , "as Of ITO"); 
putzy(10,16, 

ddrrr’DC-dddn'irEC ” ) ; 

putiy (55 ,16 , "ddhhrrrr.Zt^f'f'yy" ) ; 
putzy(0 ,18 ," ( ) -3- Rerrarks ; 

ENI localrrask_rri sc > 

FROCirUFE f ill_local_[Tisc IS 
IFGIN 

locdlrask_rrisC)‘ 

IF u. 1. operation. underway TBIN 
putzy ('4 ,4 ,star ) ; 

putzy (6, 6 , u. 1 . opera ti on . coaeword ) ; 
putzy(48,6,u.l.operation.plan_org_nurr!3er); 
5LSIF u .1 .ezerclse.underway THIN 
putzy (4 ,3 .star ) ; 

putzy (8 , 12 ,u. 1 . ez er ci se. nicknatre ) ; 

USE 

NUIL; 

INI if; 

IF NOT u.l .position .ldt_long TEEN 

putzy (10, i6,u.l. position. present_locatiori); 
ELSE 

pu t zy ( 33, 16, u.l. position.? re sent location); 

ENL if; 

putzy (55, 16, u.l. position. dtg); 

IF u.l. position. change TEEN 
putzy (4 , 14, star) ; 

IF u . 1 .pos it ion . drrpn . change TEEN 
t!Utzy(6,14,a_rrark) ; 

ENE if; 

ENE if; 

IF u . 1 . remarks . change TEEN 
nutzy (4 , 18 , star ) ; 
nutzy(21,18,'‘0N TEIS PAGE"); 

ELSE 

putzy (21 ,18 ."none") ; 

ENE if; 

ENI f ill_iocal_trisc ; 

PROCEEURE process_rerrarks IS 

-- processes remarks sets 



EEGIN 

u .1 .remarks .number_of_pdges := 0; 

FOR number IN 1 . . max_ rmks_pages LOOP 

prccess_comment ( "Hi^iES ' & Int_to_Str (numoer) , 

u .1 . remarks .page (number ) ) 
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IF NCT u . 1 .rerra rks . page ( nurr ber ) .change THZM 
hit; — last page not modified 
ELSI? u . 1 .rerrarks .page! number ) .nurrher_of_l i r.es < 

max_comment TEEN 

u .1 .remarks .num'ber_of_pages := number; 
exit; — last page not completely used 

ELSE 

u .1 .remarks .numter_of pages := number; 

ENi if; 

END LOO?; 

I? u .1 .remarks .number_of_pages > 0 TEEN 
u . 1 . remarks . cha nge := TRUE; 

ELSE 

u . 1 .remarks . change := FALSE; 

ENT if; 

ENE pr ccess_r emarks ; 

2EGIN 

LCCF 

flll_local_misc ; 

— operaticn/exerci se 
modify_oper_exer : LOOP 

IF NOT u . 1 . exerci se .unde rvay THEN 
LOO? 

putxy ( 1 ,4 , bl ank ) ; 
getxy_immediate( 1 ,4 ,key ) ; 

CASE key IS 
WHEN xltab => 

clear_field(6,6,32) ; 
clecr field(48,e,23); 
getxyT6,6, buffer, 32) ; 

IF buffer = null_string TEEN 

u.l . operation.uncerway := FALSE; 

ELSE 

u .1 .operation . codeword := buffer; 
u. 1 . opera ti on . underway := TP.UE; 
putxy (4 ,4 , star ) ; 
getxy (4£, e, 

u. 1. operation. plan_ or g_ number, 23); 
EXIT mcdlfy_oper_exer; 

FKE if; 

WHEN a => 

error(29); — ampn not allowed 
VEEN no_input ! space => 

exit; 

WHEN ques => 

helpC'OPER/EXER") ; 
flll_local_misc; 

WEEN OTHERS 

error(6); — incorrect input 

ENI case; 
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iNr loop; 

ENi ii; 

IF NOT u . 1 .operat ion .underway TPEN 
LOOP 

putxy ( 1 , blanlc) ; 

getiy_iiT'irediate ( 1 ,8 ,icey ) ; 

CASE key IS 
WEEN Xi'tab => 

clear_f ield(8,10,e2) ; 
get xy (8, 10, buffer, 62); 

IE buffer - null_string TEEN 
u . 1 . exerci s e .underway := EALSE; 

exit; 

ELSE 

u.l. exercise. nicknarre := buffer; 
u . 1 . exercise .underway := TRUE; 
putxy(4,8 , star) ; 

EXIT mo di fy _oper_exe r ; 

ENL if; 

WEEN a => 

error(29); -- atrpn not allowed 
VEEN no_input ! space 

exit; 

. VEEN ques => 

help(”OPEH/EXEP” ) ; 
fill_local rrisc; 

WEEN OTEERS => 

errcr(6); — incorrect input 

END case; 

ENL loop; 

ENL if; 



LOOP 

putxy ( 1 ,12 , blank) ; 
getxy_irrrrediate{l ,12,key ) ; 

CASE key IS 
WEEN xltab => 

u . 1 .operation .underway := EALSE; 

putxy(4,4,blank); 

clear_field(6,6,32); 

clear_field(48 ,6,23) ; 

u .1 .exercise.underway := FALSE; 

putxy(4 ,8 , blank) ; 

clear_f ield (8 ,10 ,62^ ; 

EXIT rrodify_oper_eier; 

WEEN a => 

error(29); — arrpn not allowed 
WEEN no_input 1 space => 

EXIT rrodlfy_oper_exer ; 

WHEN ques => 



help(”CPEH/EXE3"); 
f il l_lo cai_rr.i sc ; 

'*nEN OTHERS => 

error(6); — incorrect Input 

ini case; 

ENI loop; 

END LOOP rroiify_oper_exer ; 

iTodi fy_position : LOO? 
pu'cxy'f 1 , 14, blank) ; 

-- position is required for ship/sub, only 
when changed for others 
I? ( (program. unit IN shi p . . subma rine ) 

AND NOT (u .1 .pos it ion .change) ) TEEN 

key := i; 

ELSE 

get iy_irrred ia te (1 , 14 , key ) ; 

ENI I?; 

CASE key IS 

’ivHEM z!tab => 

putxy (4, 14. star ) ; 
clear _f ield (10, le ,20) ; 
putxy (33 , 16 ,^"ddmrrIC-dddmrrEC’’ ) ; 
putiji ( 5c, 16 , ” ddhhrrrrZf'Mkyy" ) ; 
getxy( 10,16 , 

u. 1. position. present_location, 20); 
u .1 .position. change ;= TP.Ui; 

2? u. 1. position. present_iocation = "iXEr^PT" 

THEN 

NULL; — no further action required 
■JISI? u. 1. posit Ion. present_iocation = 

null_string THEN 

— get lat/long 

u . 1 . Dosi tion. la t_long := TRUE; 

LOOP' 

getxy (35,15 , 

u. 1. positi on. present_lo cation, 14); 
verify_lat_long( 

u.l.position . p resen t_l oca t ion , success ) ; 
EXIT WFEN success; 
putxy (35,16, 

u.l.position.present_iocation); 

END loop; 

— get asof dtg 

loop 

getxy (55, 16, u.l.position. dtg, 12); 
verify_dts( u. 1. posit ion. dtg, success); 
EXIT VEEN “success; 
outxy (55, 16, u.l.position. dtg); 

END loop; 
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ELSE 

u. 1 .posi lion, := FALSE; 

— "gel asof dtg 

LOOP 

getxy (55 , 15 ,11 .l.po‘iliion.dtg,12); 
verify_dtg( u . 1. pcs lion. dtg, success); 
EXIT 'WKEN success; 
putiy ( 55,16,\:.l.posltlon.dls); 

END iccp; 

ENT if; 

WEEN a => 

IF u . 1 . pcsi lion . change TEEN 
process_cofTFeni ( “POS IT ” , 

u . 1 .posi lion . ampn ) 

fill locdl_Fisc; 

ELSE 

error(27); — set not changed 
ENL IE; 

WEEN no_input I space => 

EXIT nio(lify_position; 

WHEN Ques => 
helpC’POSIT”) ; 
f ili_locai_Fi sc ; 

WHEN OTHERS => 

error(28); aiiowaoie Inputs 

ENE case; 

EM IOC? Fodify_pos ition; 

— rerarlcs 
IF Farkd.lS) THEN 
process_r err arks; 

H ll_locdl_Fisc ; 

ENL if; 

putxy (0 ,20 ^ ’ 

putxy ( 0 ,20 ,][<ENTER> to continue, ENTER <X> S. 

"to Reseiect : " ) ; 
reselect := irarkC 44 ,20 ) ; 

EXIT WHEN NOT res elect; 

ENE loop; 

ENI process_local_Fisc; 



PROCEIURE process_local_inf requent IS 

PRCCELUPE localFask_infrequent IS 
EEGIN 

lOCdlFdSk; 

putxy(24,3. “ I N ?R EC UE NT LY CFANGiE ITENS— ); 
putiy(0,5,’( ) -1- Unit Type ); 
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putxy (8 ,e,^’ ( )Ship ( )Suoiriarine ( ).fiir 
’, ( )Shore ( )Other*'); 
putxy(Z,9, ( ) -li- Lait Identification - " 
"OPNAVINST 3503.1 A?P. c”); 

putxy(8 ,10, ’] "); 

putxy(e ,12 ,” ( ) -3- Last Serial "); 

putxy(0 ,15, [[( ) -4- Message to be Prepared 

"as Feeder:"); 

putxy (12,16, "(UNITII vice MSGIT data set)’’); 
5NE localrrasic_inf requeat; 



S. 



PPCC5IUPI f ili_local_infreqt:ent IS 
BEGIN 

localniask_lnf requent ; 

CASE prcgratr .unit IS 

WHEN ship => putxy(9,€ ,x_rrark) ; 

WHEN submarine => putxy ( 19 ,6 ,x_ mark ) ; 
WHEN «ir_unit => pu txy ( 34 , 6 , x_rrar k ) » 
WHEN shore => nutxy (43,6,x_irark) ; 

WEEN other => put xy ( 54 , 6, x_irark ) ; 

ENE case; 

putxy(8,10,u.l.status.unit_id); 

putxy(20,12,u.l.st<atus.last_serial); 

IE u . 1 . status. feeder_repor t THEN 
putxy (45 , 15 , "yes" )T 
ELSE 

putxy (45 ,15 ,"N0" ) ; 

ENE if; 

IE u . 1 . status . ampn . change TEEN 
putxy (4, 15, a mark); 

END IE; 

EM fill_local_infrequent ; 



BEGIN 

LCCP 

fill_local_ in frequent ; 

— status. unit type 
IE mark(l,5) THEN 
CASH rrogram .uni t IS 

WHEN ship => putxy(9,6,olank) ; 

WEEN submarine => putxy ( 19 ,6 , bianii) ; 
WHEN dir_unit => putxy ( 34 , 6 , clank ) ; 
WEEN shore => putxy (43 ,6 , blank ) ; 

WEEN other => putxy ( 54 , 6 , b lank) ; 

ENi case; 

LOC? 

IF irark(9,c) THEN 

program. unit := ship; EXIT; 

ELSIF mark(19,6) THEN 

nrogram .uni t := submarine; EXIT; 
ELSIE mark(34,6) TEEN 
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prografr .uni t := dir_unit; EXIT,* 

ELSIE nrark(4:3,e) TEEN 
• program. uni t ;= shore,* EXIT,* 

ELSIE mdrfc(54,6) TEEN 

program. uni t := other; EXIT; 

ELSjt error(lo); — must choose one 

ENE ie; 

ENL loop; 

END IE,* 

— status.unit_identification 
IE markfl,9) TEEN 
LOOP 

clear_field(S ,10,30) ,* 
getxy(S,10,u.l.status.unit_id,30); 

EXIT WHEN u. 1 . s ta tus. uni t_ld /= null_strlng; 
error(22); — required item 

FNi loop; 

ENE if; 

-- last serial, should only be used for initial 
IE mark f 1,12) THEN 

-- warning on changing serial 
error(23); error(24); 
putxy ( 1 ,12, blank) ; 

IE markd ,12) THEN 

clear_f ield(20,12,3); 
u. 1 . status . la st_serial := 

getzy^digits{20 ,12,3) ; 
IE u . 1 . std tus . IdS t_ serid 1 /= ""S99 ” TEEN 
u . i . s tatus . curr ent serial := zero_pad(3, 
Int_to_Str( Str_tc”lnt( 
u .1 .stdtus . IdSt _seri dl ) + 1 ) ); 
iLSE 

u .1 .status . current_serial := ”00l"; 

ENE ie; 

ENE ie; 
i N c IF; 

-- feeder report used to separate addresses 
-- and determine UNITIE vice rsOIE set 
Todify_msgid_unltid : LOOP 
putxy { 1 , 15 , b lank) ,* 
getiy_ immediate (1 ,15, key ) ; 

CASE key IS 
WEEN litdb => 

putiy(45,15, (Y/N) ? : ); 

getiy_immedia te ( 55 , 15 , key ) ,* 

IE key = 'Y ' TEEN 

u . 1 . s t a tus. f eede r_ repor t := TRUE; 

E y I T j 

ELSIE key = 'N' THEN 

u . 1 .status . feeder_report := FALSE; 
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ixit; 

ilSZ 

error(6); — incorreci input 
END I?; 

ZNr loop; 

VEEN a => 

— this set alwdjrs subrritted, 

— no check for change 
process_comment { " I LENT" ,u . 1 .s tatus .artpn ) ; 
fill_locdl_infrequent; 

'v'EEN no_input ! spa ce =.'^ 

EXIT modify_rrsgid_unitid ; 

\vEEN Ques => 

help ("I tint") ; 

fill_lccdl_infrequent; 

WEEN CTFEP.S => 

error{6); — incorrect input 

ENi case; 

END IGCP n"odify_rrsgid_uni tid ; 

— reselect option 
putxy (0 ,20 ,blankln ) ; 

putxy (0 ,20 , "<ENTEE> to continue, EMTEE <X> to " £. 

"Reselec t : " ) ; 
reselect := trark( 44 ,20 ) ; 

EXIT WEEN NOT reselec tj 

END loop; 

ENI process _local_inf requent ; 

PROCEDURE pri nt_iTsg f part : IN rrsg_part) Ib 
UvSE strlib; — Extract 

address Indent: STRING; 

DEGIN 

IE part = header THEN 

IE act ion_is ( draft ) TEEN 
ECR i IN 1 . .45 LOOP 

■DUt_print er (null_string) ; 

END loop; 

put_printer ("RCS UNITRE? DRAFT DATA"); 
put_pri nter ( u. 1 . s ta tus . uni t_id & " SERIAL 
& u. 1 . status . current_ser ia 1 ) ; 
put_printer (null _st ring) ; 
put_pri nter { 

"CLASSIFY IN ACCORDANCE WITE OPNAVINST 5510. l"); 

new_page; 

draf t_aid("lNlTIAL ITErs"); 

NEW page; 

END if; 

Case U.l.rressage. precedence IS _ 

WHEN routine => buffer := "R"; 
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'i’HEN priority => tuffer ;= "P"; 

■JiEEN irrrredidte => buffer := "O ; 

WEEN flash => buffer := "z"; 

ENi case; 

put_printer(buffer S. " " S, u . 1 .rressage .dig) ; 

II forrrat_i£ (ocr ) TEEN 

address_indenl := Ext ract ( blankln ,1 ,18 ) ; 

ELSE 

address_indent := null string; 

EM if; 

pu t_printer( address_indent & "IM 

u.l .rressage . origina tor_address ) ; 
pr in t_ddd res see (" action" ) ; 
print_addressee("lNEO") ; 

CASE u , l.iressage. classification IS 
WHEN unclas => 

buffer ;= "UNCLAS"; 

WFEN confidential => 

buffer := "C 0 N I I r E N T I A L" ; 

.VEEN secret => 

buffer := ”S E C H E T"; 

WHEN top_secret => 

buffer := "T C P S E C E E T"; 

E.'iL case; 

pu t_ printer (buffer ) ; 

IE act ion_i s f draft ) TEEN 

draf t_aid ('VESSAOE EEALER") ; 

new_?age; 

EM if; 

-- oper/exercise 
II u.l .operation .underway THEN 

IF u. 1. ooeration. plan org nuirber /= null_string 

TEEN 

buffer := u. 1 .operation .codeword & "/" 

& u.l .opera tion . plan_org_nuiT ber ; 

ELSE 

buffer := u .1 .operation .codeword; 

INL if; 

put_pr int er ( "OPER/" tuffer & ”//"); 

ELSIE u.l .exercise. underway THEN 
p.ut_print er ( 

"IXER/” & u. 1 . exerci se . nicknaire 6. "//"); 

ENE if; 

I? ac ti on_i s (draf t ) THEN 
draft _a id ( "OPER/EXER" ) ; 

ENE if; 

— irsgid/uni t sets 

II NOT u . 1 . s ta tus . f eeder_repor t THIN — nsgid 
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Fi;:_?rinter,("r'SGI_I/UNITREP/" & u .1 . status .uni 

& / & u . i . std tus . curren t_ser idl & "//'*)> 

SI'S! -- unltid separation 

.Niy_PAG£; 

IT act ion_is (draft ) TPliN 

put_printer("^’p='‘’P’?« Page Separation Point " & 
"for FIIPEB REPORTS 

INE if; 

put_printer( Du.U_st ring ) ; 

put_printer ("UNTTir/" <i u.l .status. unit_id 

/ & u . 1 . s t a tus . current serial & "//"); 

INE IF; 

IF action_is (draft ) THEN 
draft_aid(' ^ISGIE/USITIE") ; 

FNE if; 

— posit set 

IF requlred_print (u.l .position. change) THEN 

buffer := POSIT/' & u . 1 . oosi t ion .presen t location 
& 

IF u. 1. position. present^location = "EXEMPT" TEEN 
put_printer( buf f er 6 . "/"); 

EISE 

put_priat er ( buf f er c> u. 1 . posi t ion .d tg "//"); 
ENE if; 

IE u . 1 .pos it ion . diTpn . change TEEN 
pri nt_coprrent("p6si'I " } ; 

END if; 

ENE if; 

IF act ion_is (draft ) TEEM draft aid ( "PCS IT" ) ; EKE IF; 



ELSE ■ — message trailing items 

IF dct ion_is (draft ) OR u . 1 .status . feeder_report THEN 
NEV_“AGE; 

ENE if; 

IF u . 1 . reirarlts .change TEEN 

FOR page IN 1 . .u. 1 . remarks . numter_of_pages LOOP 
Open( fyle ,"RMKS" & Int_to_Str(page) & ".AMP", 

Read_Cnly ) ; 

FOE line IN 1 .. u. 1 . remarks . page (page ) . 

number_of _lines LOOP 

buffer := GET_L INE ( fy 1 e ) ; 

IF page = i ANE line = 1 TEEN 
buffer := "RMKS/" & buffer; 

ENE if; 

IF page = u . 1 . remarks . number _of pages ANE TEEN 
iine = u.l .remarkrs. page (page! . 

number_of _lines THEN 

buffer := buffer & 

ENE if; 

put _pr inter ( buf fer ) ; 
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ZNi loop; 

CLCSZ(fyle); 

ZNE loop; 

ZNE IP; 

n dction_is(dr<ift) THZN drdft_(ild ( “aMKS" ) ; ZND Ii; 

--declcis 

IZ u. l.rressage. classification > uncias THIN 
pi't_prinler ( "rCLAS/ " & 

u. 1 .rresscige. declassification & ”//"); 

ZM IP; 

put_printer(end_trans); 

IP action_is (draft) THZN draft a id ( "LCLAS " ) ; ZND IF 
INI ii; 

ZNE print_msg> 



BZGIN 

IP action_is(neww) THZN 
u.l. change := PALSZ; 
u .1 . status . transrri t ted := PALSI;__ 

IP u . 1 . sta tus .curreat_serial /= "99S’’ THIN 
u .1 . status . curren t_serial ; = 

zero_uad (3,Int_to_Str(Str_to_lnt 

(u.l . St atv s .la 5 t_ser ial ) ■*■1 ) ) ; 

EISZ 

u.l .status .current_serial ' 20l" ; 

ZNE IP; 

u . 1 . sta tu s .arrpn . change := PALSZ; 
u . 1 .rressage .precedence := priority; 
u. 1 . n^essage. d tg ;= null_string; 
u .1 .rressage .classification := confidential; 
u.l .message. declassification := null_string; 
u .1 .position .change := FALSE; 
u . 1 . posit ion . airpn . change := FALSI; 
u .1 .remarks .change ;= lALSZ; 

PCH i IN 1 . .rrax_rmks_pages LOOP 

u . 1 . remarks . page( i ). cha nge := FALSE; 

ZNE loop; 

ZLSIF action_is(modify) THEN 
process_loca l_inf requen t ; 
prccess_lccdl_msg; 
process_local_rrisc; 
u.l. change := TP.UZ; 

ZLSIF action_is(print ) OR action_is (draft ) OR 
action_ls (verify) THIN 
printer_on; 
print_msg(part ) ; 
printer_of f ; 
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5LSI5 action_is(log) THIN 

— delete .AMP files, not saved 
-- data structure 
riLITlC'POSlT.AMF") ; 
lEIZTiC'iriNT.AMP") ; 

ICS i IN 1 .. u. 1 . remarks . nun'tier_of_-Dages 
BILETK "RMKS" & Int_to_Str (i ) & ".AMP 

INI loop; 



INI ii; 

INI prccess_local ; 
ND urlocai; 



in 



LOOP 

); 
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WITH urlocalA; 

PACKAGE urlocall IS 
USE urlocalA; 

— provides processing of tressage i nf ortra t ion 
PROCirUHE localrrask; 

FBOCEEGRE process_local_rrsg; 

FROCEIUPE print_addressee(filename : IN STRING); 

ENI urlocali; 



■pic 
C w w 



— JANUS/AEA litiraries 



W ITH ic ,strlib , 

consio , printlo , 
iirglo bai , 
uni trepA, 
url ocalA; 

FAC5AGI SOIY urlocall IS 
USE cor.sio ,prlQtio , 
ur|;lo tal , 
uni t repA , 
urlocalA; 

— This package provides Message Inforrr.at ion LOCAL 
routines for UNITREP construction. The ECLAS 
•— data set is supported. 

PROCEIURE localmask IS 
BEGIN 
border > 

;putxy( e ,1 /’local" ) ; 

cutxy ( 0 ,20 /’enter <X>/tat to select, " S 
^ENTER>/space for next, <A> to arrpiify, " 0 
’’<?> for help"); 

5NC localrrask; 



PEOCEIURE process_local_msg IS 

addre ss_line : STRING; 

FROCEIURE localrrask_irsg IS 
BEGIN 

localmask; 

putxy(29,3_,"-r^ESSAGE I NFCRr^ATI CN-" ) ; 
putxy(0 ,4,’^( ) -1- Acdresses"); 

putxy (8,5,’.’( ) Originator " 6. 

~ ); 
putxy(8,6,"( ) Action"); 
putxy (6 ,7 ) Info’’); 
putxy(0,9,"( ) -2- Classification"); 
putxy(39,9,’’ ( ) -3- Precedence"); 
putxy (9 ,10 , "- Unclas"); 
putxy ( 48 , 10^"- Routine";; 
putxy(9,ll, - Confidential"); 
putxy Priority"); 
putxy(9,l2, - Secret"); 
putxy (48, 12,"- Irrrrediate'^’/ ,* 
putxy (9 ,13 ,"- Top Secret"); 
putxy(48, 13 , Flash"); 
putxy(0,ie, 

"( ) -4- Eeclasslf ication Instructions"); 

putxy (8 ,17," "& 
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INI lccain’a5k_n’sg; 

PRCCirUHE fill locdl_trsg IS 
rIGIN 

iocalr:ask_Tsg; 

putxy(23.5,\:.l,!Tessage.originator_address); 

CASE u. 1 .ressdge . classified t ion IS 
WHIN uncias => putiy (9 ,10 ,x_rrark) ; 

WEEN confidential => putxy(9 ,11 ,x_.Tark) ,* 

WHIN secret => putxy (9 , 12 , x_rrark) 

WE5N ton secre:t => putxy (9 , 13 ,x_irark) ; 

END case; 

C/SI u. 1 .ressage;. precedence IS 

WHIN routine ==> putxy (48 , 10 ,x_n"ark) 5 
WHIN priority => putxy(4S, 11 ,x_rrark) ; 

WEIN Imnfediate! => putxy (48 ,12 ,x_rrark ) ; 

WHIN fla sh => putxy (48,23,1 rrark) 

INE cash; 

II u .1 .rressage. classification > unclas THIN 
putxy (4 ,16 , star ) ; 

nu txy (a , 17 ,u . 1 . ir.essage. declass if lea tion ) ; 

INE if; 

INI fill iocdl_rrs,i; 

1 ““ 

PPCCirUHI T)rocess_addressee(filena!re : IN STEING) IS 
USE strlib; — Extract 

USE io; — Open .Close, Get_line 

max_address: CCNSTANT := 1£» 

slc7 constant := 4,* — screen line offset 

add ress_l ine : STHING; 

iTark , number_,of_addres ses : INTIGIR; 

address: ARRAY ( 1 . .[rax address ) Cl STRING(50); 



FRCCEEURI addressrrask IS 
I EG I N 

address„iine := " & Ext rac t (da shin , 1 ,44) ; 

border; 

putxy (0 , 1 ,fil enarre & ’ AEDRESSZIS ’ ) ; 

FOR line_number IN 1 . ..Tax_addre ss LOOP 
putxy(lh,slo line_nurrber ,address_line) ; 

INI loop; 

putxy ( 10 ,3, "The [ranks the starting point " 6 . 
"for continuation lines"); 

END addressrask; 

PPCCZrUPI f ill_addressmask IS 
PEG IN 

addressmask; 



237 



FOE i IN 1 . .nurrber_of__addrasses LOOP 
putxy ( 15 ,slo + i , add cess (i ) ) ; 

SNi loop; 

END f ill_addressfrcisic; 

FBCCEEURE initial! 2e_addresses IS 
iEGIN 

address (1) ;= ’[EELITF This Line: and Put " & 
"First Address Here”; 

FOE i IN 2 . .fnax_address LOOP 
address(i) := null strin#-; 

INI loop; 

END initialize addresses; 



I 



EG 



IN 



reddin current addresses 



ini tiali ze_addresses; 

OPEN ( fy le , file naire , Eead_Cnly i ; 

FOR 1 IN 1 . .rrax_dddress LOOP 
EXIT WEEN END OE_FI I E ( f yl e ) ; 
address(i) :=~GET_LINE( fyle) ; 
nurrber of addresses := i; 

END LOOP? 

CLCSE(fyle) ; 
f ill_addressrrask; 

LOO? 

putxy (0 ,20 tblankin) ; 

putxy (10,20 , ”<ENTER> to continue, ” S. 
”<C> to change, <E> to erase, ”& 
'■<?> for help”) ; 
getxy _iirn"edia t e (75 , 20 ,key ) ; 

CASE key IS 

WHEN nc_input ! space => 

exit; 



WHEN c => 
mark := i; 

LOOP 

putxy(0 ,20, biankln) ; 

putxy (0 ,20, ”<D> to delete, <A> to add 5 
"at the cursor position, " & 

”<X> to exit change"); 
getxy i.Tiredia te ( 13 ,slo + mark, key); 
putxyTlS, slo+rrark, clank) ; 

CASE key IS 

WEEN no_input 1 space => 

IF (mark = nurrber_of _addresses + 1) 

OR (mark = max_address) TEEN 
mark := i; 

ELSE 



mark := mark + i; 

END if; 



:ac 



h. 

jP 







VBEN xltat => exit; 

WEEN d => 

FCH i IN mdrk. .iivn’ber_of_addresses-^l 

LOOP 

address(i) := address ( 1+1 ) ; 

ENE loop; 

address (n’ax_address ) := nui l_s t r i r g; 

IE nurrber_of _add resses /= 0 THEM 
aum‘ber_of_addresses : = 

nurrber_of _addres S£s - i; 

ENE if; 

f 1 ll_addres sma sk ; 

WHEN d => 

IF nurrber_of_addresses < 15 TPEN 
FOR i IN REVERSE rrark+1 . . 

rax_dddres5 LOOP 
address'!) t= addressTi-l ) ; 

ENE loop; 

address (rrdrk ) ;= null_strir.g; 
nun'ber_of _addresses : = 

nvnber_of_addresses +1 ; 
f ill_dddressfrasK; 
getxy(15,slo >■ rrark, 

, address (rark) ,50} ; 
irark := rrark + i; 

ELSE 

error (32 ) ; 

— only 15 addresses ailoved 
ENE if; 

WHEN OTHERS 

error(e); -- Incorrect incat 
ENE CASE; 

ENE loop; 

WEEN e => 

Init iallze_addresses ; 
f ill_dddres smask; 

WEEN ques => 

>ielp( "ADERESSEES" ) ; 
f ill_addressrrask; 

WHEN OTHERS => 

error(e); — incorrect input 

ENE case; 

ENE loop; 

— store file 
EELETKfilenarre); 

Create( fyle ,f ilenaire,Write_Only ) ; 

FOR i IN 1 , .max_address LOOP 

EXIT WHEN address(i) = null_string; 
PUT(fyle,address(i) ) ; 

NEW_LINEf fyle); 

E.NE ICO?; 



CLOSE(fyle); 

INE process_ad(iressee; 

BEGIN 

LOOP 

f i 1 l_local_msg ; 

-- addresses 
rrodif y_addresses : LOOP 
putiy (1 ,4, Plank ) ; 
getxy_iirirediate(l ,4 .key) ; 

CASE key IS 
WEEN Xi'lab => 

IE irark(S,5) THEN 

— originator 

LOOP 

clear_fleld(23,5,50) ; 
getiy (23, 5, 

u.l.rressage.originator_ad dress, 50); 
EXIT WHEN u . 1 .mess age . 0 rigina to r_add re s s 

/= null_string; 

error(20); -- address reauired 

END loop; 

END ie; 

— action 
IE mark(9,6) TEEN 

process_addressee( "ACTION” ) ; 
f ill_local_msg; 
i N E IE; 

— info 

IF rrark(9,7) TEEN 

process _addressee(" I NEC"); 
f ill_local_msg; 

END ie; 

WEEN no_input 1 space => 

EXIT modify_addresses; 

WHEN ques => 

helpC’ADDRESSEES" ); 
f ill_local_rrse; 

WHEN OTHERS => 

error(6); — incorrect input 

END case; 

END LOOP modify_add resses; 

— message. classification 
IE rrarka,9) THEN 

CASE u. 1 .message . classificat ion IS 
WHEN unclas => putxy( 9 , 10 ,dash ) ; 

WEEN confidential => putxy (9 ,11 .dash ) ; 

WEEN secret => putxy(9, 12 ,da sh) ; 

WEEN top_secret => putxy (9 ,13 ,das h) ; 

END case; 
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LOOP 

IF rrark(g,10) TEIN 

u . 1 . iressage. cldsslf i cat ioa := unclas; 
u .1 .message. declassification := null_string; 
putxy (4,ie,l3lank) ; 
sxit; 

ZLSIF rrark(9,ll) TFIN 

u . 1 . me ssage . cla ssif lea t ion := confidential; 

exit; 

ELSIF mark(g,12) TEIN 

u .1 .message , classified ti on := secret; 

exit; 

ILSIF mark(9,13) TEIN 

u.l .message. classification := top_secret; 
exit; 

ELSE 

errordS); — miist choose one 

ENE if; 

ENi loop; 

END if; 



— message .p recedence 
If markU0,g) TEEN 

CASE u .1 .message.precedence IS 

WEEN routine => putzy(43 ,12,dash) ; 
WEEN priority => putzy (48 , 11 , da sh ) ; 
WEEN immediate => putxy (48 ,12 ,d<ish) ; 
WEEN flash => putzy (48 , 13 ,da sh ) ; 

ENE CASE; 

LOOP 



IE mark(48,10) TEEN 

u .1 .message.precedence 
EXIT? 

ELSIF mark(48,ll) TEEN 
u . 1 .message.precedence 

exit; 

ELSIF mark(48,12) THEN 
u .1 .message.precedence 
IX IT * 

ELSIF mark(48,13) THEN 
u.l. message. precedence 

exit; 

ELSE 

error(ie); — must 

ENI if; 

ENE LCCP; 

ENE if; 



= routine; 

= priority; 

= immediate; 
= flash; 
choose one 



— message. declassif ica tion 
IF ( u. 1 .message .classification > unclas 
ANE u .1 .message .declassif ication = 

null _s t ring , 



TEEN 
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LCCP 

cledr./leld(8,l7,ei); 

getxy C8,17,u.l .[ressdge.declassificd tion ,61) ; 
IXIT WHEN u.l .rressdge. declassification 

/= null_string 

errori'21); — required for classified message 

END loop; 

EMI" if; 

— reselect option 
putxy (0 ,20,blanJcln ) > 

putxy^ 0 ,20 , "<ENTEE> to continue, ENTER <X> to " & 
Res el ect : ‘ ) ; 
reseiect := rrdrlc(44,20) ; 

EXIT WHEN NOT reselect; 

INI loop; 

ENI proofiss_local_rrsg; 

PROCEIURS pri nt_addre ssee (f i lename : IN STRING) IS 
USE i o; --Open , Close, GET_LINE 
USE striib; — Extract 

address indent: STRING; 



PEGIN 

Open(f:/le, file name, Read_0nly); 

IE f 0 rrrat _i s ^ oc r ) THEN 

dddress'i ndent := Ext ract ( tlankln ,1 ,1 8) ; 
ELSE 

address_i ndent := null_string; 

ENI if; 

IE filename; = "ACTION" TEEN 

buffer :=•• address_indent & "TO "; 

ELSE 

cuffer := address_indent & "INEO "; 

ENE I?.- 

buffer := buffer S. GET_LINE( fyle ) ; 
put print er ( buff er ) ; 

WHILE NOT END_OF_FILS(fyle) LOOP 
buffer := address indent & 

& GET_LiNE(fyie); 
put_printer(buffer) ; 

ENE LOCP; 

CICSE(fyle); 

IF f 0 rmat _is ( msg) AND filename = "iNFO" THEN 
put_printer ( end trans); 

ENE if; 

ENI print_addressee ; 

ND urlocali; 
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PACKAGi uradmin IS 

— This package provides access to the 
— administrat i ve process for UNITREP construction 

PRCCirUPI process_adrinistrat ive> 

ENE uradmin? 
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WITH io.strlib, — JANUS/iiEA Libraries 

consio , print io , 
urglbl ,urglobal , 
urut il , 

uai trepE,uradrrinB; 

PACKAGE 30IY uradrrin IS 
USE consio .printio , 
urglbl , urglobal , 
urutil , 

unitrepB ,uradmin3 ; 

— This package provides J5EMIN ISTPATIVE routiies for 
— UNITEEP construction. 

— Eata sets COMMANE, ACTIV, :^EI)IC, REPCKG am 
— VERIPY are supported. 

PEOCEEUPE prccess_adrrinlstrative IS 
USE io, — Cpen, Close, Ind_cf_7ile 
strlib; — Extract 

— perforr’S required rranipulatlon of adrrinlstratlve 

— infcrtration 

PP.OCEEUP.E adtrinirask IS 

— draws the admin fields screen 
BEGIN 

border?* 

putxy(Z,l,”AEr^IMSTPATIVI "); 

putxy ( 0 ,4 , *' ( ) -1- Command Change"')?* 

putxy(35,4,;;C0/CIC" ); 

putxy(45,4,^^ ) ?• 

putxy(3£, 5, [[Effective ETG") ; 

putxy (e2,5;^"ddhhrrmZMMMyy” ) ?* 

putxy(0,7, ( ) - 2 - Activity Change-’"/? 

putxy(3£,7,’’Code — "); 

putxy(0,9,’\( ) -3- ^Physician Status’’)? 

pu txy ( 35 , 9 , ' ) Onboard")? 

putxy(35, 10 { ) Departed"); 

putiy ( Z ,12, " ( ) -4- New Reporting CHG"); 

putxy(35, 12, [Effective ETG") ; 
putxy (62,12, "ddhhmmZM^.Myy " ) ?' 
uutxy ( 11 , 13 , 

’( )CNO ( )CINCPACELT ( )CINCLAMTELT " ) ?* 
PUT("( )CINCDSNAVEUP"); 

DU txy ( 0 , 15 , " ( ) -5- Eeedback Verif icaticn" ) ; 

putxy(35, 15,[^{ ) Valid"); 
putxy (35 ,16, "( ) Corrected"); 

putxy(0,20,"<X>/tab to Select, <ENTEE>/space " S. 

"for next, <A> to ampli-"y, <?> for HELP"); 

ENE adminmask; 
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PROCEEURE flll_admintrask IS 

— fills in the adirinistrati ve screen with 

— change information from the workfile 
BEGIN 

adminmask; 

putxy( 45,4 ,u .ad. command . cooic) ; 
pntxy (62,5, u. ad. command .dtg) ; 

IE u. ad. command. change TEEN 
putxy (4 ,4 , star ) ; 

IF ti .ad .command .ampn . change TEEN 
putiy (6 ,4 ,d_mark*) ; 

ENE if; 

ENE if; 

put xy (41, 7, u. ad .activ. activity _c ode); 

IE u. ad. activ. change TEEN 
putxy(4,7 .star) ; 

IE u .ad .act Iv . ampn . change THEN 
putxy (6 ,7 ,a_mark ) ; 

END if; 

ENE if; 

IE u. ad. medic . sta tus = onboard TEEN 
putxy (36 ,9 ,x_ mark) ; 

ELSE 

putxy(36 ,10,x mark); 

ENE if; 

IE u .ad .medic .change TEEN 
putxy(4,9,star) ; 

IF u .ad .medic . ampn . change THEN 
putxy ( 6 , 9 ,d_!Tark) ; 

END if; 

ENE if; 

IE u. ad . reporg .new_rep_org = cno TEEN 
putxy(12,13,x_mark) ; 

ELSIF u. ad. reporg .new_rep_org = cincpacflt TEEN 
putxy (21 ,13 ,x_mark) ; 

ELSIF u. ad .reporg. new_rep_org = cinclantflt TEEN 
rutxy(37,13,x_mark); 

ELSE 

putxy (54 ,13 ,x_mark) ; 

ENE if; 

putxy (62,12 ,u .ad. reporg. dtg) ; 

IE u. ad. reporg. change THEN 
putxy (4 ,12 .star ) ; 

IE u .ad . reporg .ampn .change THEN 
putxy (6 , 12 ,a_ma rk ) ; 

ENE if; 

EM if; 
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II u .ad .verify .feed tdclc_ver = Vdlid THIN 
putiy{3e ,15 ,x irark) ; 

ELSI 

putiy (36 , 16 ,i_ma rk) ; 

iNr if; 

II u. ad. verify. change THIN 
putiy (4 ,15 ,star ) ; 

II u. ad .verify .ciirpn .change THIN 
putxy(6,15,a rrark); 

IND if; 

INE if; 

INI f ill_adrrinrrask; 

BEGIN 

— do the appropriate action 
IF action_is (neww ) TEEN 
r. ad. change ;= FALSE; 
u .ad . cOFfTand . change := FALSE; 
c.ad.coFFand.aFpn.change := FALSE; 
u . ad . activ .change := FALSE; 
u .ad .activ.aFpn . change := FALSE; 
u. ad. Fedic. change := FALSE; 
u .ad .medic .aFpn . change := FALSE; 
u. ad. reporg. change := FALSE; 
u. ad. reporg.ampn. change := FALSE; 
u .ad. verify .change ;= FALSE; 
u. ad. verify .ampn . change := FALSE; 



ELSIE action_is (modify ) TEEN 
modify_admi n : LOCP 
f ill_adminmask; 
modif y_ccTma nd : LOCP 
putxy (1 ,4 , blank ) ; 
getzy_i Fired iateU ,4,key ) ; 

CASE key IS 
WHEN I 'tab => 

nutxy (4 ,4 , s tar ) ; 
clear field (45, 4,30 ) ; 
putxyl62 ,5 , '‘ddhhmmZf^f^Myy " ) ; 
getxy(45,4,buffer,32) ; 

IF buffer = null_string THEN 
u .ad . coFFand . change := FALSE; 
u . ad . command . ampn . change := FALSE; 

ELSE 

u .ad. command. cooic := buffer; 
u . ad . command . change := TRUE; 
u. ad. change := TRUE; 

LOOP 

get xy (62 , 5 , u. ad . comma nd . d tg , 12) ; 
veri fy_dtg( u .ad . comm and. dtg, sue cess ) > 
EXIT WEEN success; 
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putxy (€2 , 5 ,u .ad .corrrrand .d tg ) ; 

END loop; 

ENE if; 

WEEN a => 

IF u. ad . command .change THEN 
process_corrment ( '‘CCr'I^ANB", 

u. ad. command. ampn ) ; 

fill admlnmask; 

ELSE 

error(27); — no set to amplify 

ENE if; 

WEEN no_input I space => 

EXIT modlfy_command ; 

WEEN aues => 

help("CO^'^!ANE’‘) ; 

f i 1 i_adminmask; 

WHEN CTEFRS => 

error(28); -- incorrect input 

END case; 

ENE LOOP modify_com.manci; 

modi fy_ac tiv : LOOP 
putxy ( 1 ,7 ,hldnk ) ; 
gutzy immediat e ( 1 , 7 , key ) ; 

CASE icey IS 
WEEN xltab => 

clear_f ieid (41,7,2) ; 
getxy (41 ,7,buff er ,2 ) ; 

IF buffer = null_string TEEN 
u .ad . act iv . change := FALSE; 
u .ad .activ. ampn . change := FALSE; 
putxy(41 ,7,u.dd .dcti V .acti vity_code) ; 

ELSE 

Open(fyle," TA3LE.3-e’' ,?.ead_0nly ) ; 

LOOP 

IF End_of_File(fyle) TEEN 
CLOSE(fyle) ; 

error(lE); — activity code not found 
putxy(41,7,n.dd.dctiv.activity_code); 

exit; 

ELSE 

file buffer ;= GET_LINE ( fyle) ; 

END IFT 

IF Extrac t( file_buff er ,1 ,2) = buffer THEN 
CLOSE(fyle); 

u. ad .activ. change := TRUE; 
putxy (4, 7, star) ; 

u. ad .ac tl V. ac ti Vi ty_code := buffer; 
u. ad. change := TRUE; 

exit; 

ENE if; 
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ENE LOOP; 

SNE if; 

WEEN d => 

IF u. ad . ect Iv. change THEN 

process _corT!rr,em; ( ACTIV’’,u.aci.activ.arT;pn); 
fill adirinrrask; 

ELSE 

error (27); — no set to anrpllfy 

END if; 

WEEN no_inpu: 1 space => EXIT trod ify_activ; 

WHEN ques => help ( ’’ACTIV" ) ; 

viex_tatle( "TAEIE ,B-e" ); 
f ill_adirinirask ; 

WEEN CTEEH3 => error(28); — input choices 

ENE case; 

NI LOOP rrodify_act iv; 

I progratr .uni t IN ship .. submarine TEEN 
modi fy_rredic : LOOP 
putiy (1 ,9, blank) ; 
getiy_immediate (3. ,9 ,key ) ; 

CASE key IS 
WHEN xjtan => 

putzy (4,9, star) ; 
putiy(36,9,bj.dnk) ; 
uutxy (3c. 10 , blank ) ; 

LOO? 

IF mar^(36.9) THEN 

u .ad .medi c. status := onboard; 
u. ad . medi c . change := TPUE; 

exit; 

ELSIF mark(36,12) TEEN 

u.aa .medic. status := departed; 
u .ad .medi c . change := TRUE; 

exit; 

ELSE 

errnn(16); — must choose at least one 

END if; 

ENE LOO?; 

WEEN a => 

IF u. ad. medic. ohange TEEN 

•Drocess_comment ( r^EEIC" ,u.ad .medic, ampn) ; 
f ill_adminmask; 

ELSE 

error(27) ; -- no set to amplify 

END if; 

WEEN no_input 1 space => 

EXIT modify _medic; 

WEEN aues => 
helpOEEIC") ; 
fill adminmask; 
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WPIN OTHERS => 

error(28)j -- input choices 

ENE case; 

ENE LOOP trodify_rredic ; 

ENE if; 

modify_reporg : LOOP 
putxy (1 ,12, "blank) ; 
getxy_itrtrediate (1 ,12, key) ; 

CASE key IS 
WEEN i!tab => 

putxy( 62,12, "ddhhrmnZ^^w^’yy" ) ; 
putxy (4, 12, star) ; 
putxy ( 12 ,13 , blank ) ; 
putxy(21 ,13 .blank) ; 
putxy (37,13 .blank) ; 
putxy( 54,13 .blank ) ; 

ICCP 

IF rrark(12,13) TEEN 

u.ad. reporg. aew_ret)_org := cno; 

exit; 

EISIF rrark(2l,13) THEN 

u . ad . repo rg . new rer org := cincoacfit; 

exit; 

•ELSIF rark(37,13) THEN 

u .ad .reporg .new_rec or' ;= cinclantfit; 

exit; 

ELSIF irark(54,13) THEN 

u . ad . repo rg .new rei;_org := c incusnaveur; 

exit; 

ELSE 

errcrde); --- must select one 
ENE if; 

ENE loop; 

LOOP 

get xy (62 , 12 ,u. dd . reporg .d tg , 12 ) ; 
verif y_d tg( u. ad . reporg . dtg , success ) ; 

EXIT WHEN success; 
rutxy(62,12,u.cd.reporg.icg); 

ENE loop; 

u .ad . reporg . change := TRUE; 

WHEN a => 

IF u . ad . reporg. change TEEN 

process_co!Timent { ’’REP ORG " ,u .ad . reporg . ampn ) 
fill adrrinrrask; 

ELSE 

error(27); — no set to modify 

ENE if; 

WEEN no_ input I space =) 

EXIT modify_reporg; 

VEEN cues => 
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helpC’REPORG” ); 
fill ddirinirasic; 

WHIN CfEERS => 

error(28)> -- input choices 

END case; 

END LOCP rrodify_reporg; 

modify_verify : LOOP 
putiy( 1 ,15. blank) ; 
getxy_irriTed iate (1 , 15, key) ; 

CASE key IS 
WHEN xltab => 

putxy (4 ,15 , star ) ; 
putiy (36 , 15 , blank ) ; 
putiy (36 .16 ,blank ) ; 

LOO? 

IE rrark(36,15) THIN 

u . ad . veri fy . feedback_ver := valid; 
u .ad .veri fy .change := TRUE; 

exit; 

EISIE rtark(36,16) TEEN 

u . ad . veri fy .f eedback_ver := corrected; 
u .ad .veri fy. change := TRUE; 

EXIT; 

ELSE 

error(16); -- trust select one 
END ie; 

ENi loop; 

WEEN a => 

IE u. ad . verify. change TEEN 

process_c orrtrent ( ' VERI JT" ,u . ad . verify . arpn) ; 
f ill_adirinirask; 

ELSE 

error(27); -- no set to arrplify 

END ie; 

VEEN no_input ! space =' 

EXIT irodify_ver if y; 

WEEN ques => 

helpC’VERIIY"); 

fill_adrrinrrask; 

WEEN CTEERS' => 

error(28); — input choices 

END case; 

END LOOP rrodify_verify; 
putxy (0 ,20 .blaakln ) ; 

putxy ( 0 ,20 ,”<ENTER> to Continue, Enter ‘'Xh to " S. 

"Reselect : ") ; 
reselect *= irark(44,20) ; 

EXIT modi fy_adrriin WEEN NOT reselect; 

NI LOOP rrodify_adrin ; 
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ILSII action_is(draf t ) OR action_i s(print ) 

OR act ion_is ( verify) TFIN 

pri nte r_on; 

n action is(draft) TEIN 
MW_FAGi; 

INI if; 

IF requlred_print(u.ad.co!T’rrand .change) TEIK 
put_printer (y^COMMANE/” S u .ad .corrrrand .cooi c & 

" & u. ad . corrrand . d tg & "//' ); 

IF u .ad .comrand .ampn . change THEN 
print_coF'irent ( "COf^MAN’E" ) ; 

INF if; 

IF actl on_i s(draf t) TEFN 
draft aid (■ CCI^KAKE" ); 

FNE if; 

INE if; 

IF required_print (u . ad . acti V .change ) THEN 

put printer ("aCTIV/” u. ad . activ .act ivi ty code 

& ’V/"); 

IF u. ad .activ. atrnn. change THIN 
print _cotT'irent ( ”aCTI V" ) ; 

END if; 

IF action_is_( draft) TEEN 

Open( fyle ."TABLE .B-c" ,Read_0-nly ) ; 
buffer := GFT_LINE(fyle) ; 

WHILE u. ad .activ. activity_code /= 

Extract(buffer,1.2' LCC? 
buffer := GET_L INE{ fyle ) ; 

ENE loop; 

CLCSE(fyle) ; 

put_printer (null_string) ; 
put_pri nte r( buf fe r) ; 
put_printer(null^string) ; 
d raft _a id (" ACTI V"” ) ; 

END if; 

FNE if; 

IF requi red_print (u. ad. me die. change) 

AND program .uni t = ship THEN 
IF u. ad . med ic . s ta tus_^= onboard TEEN 
buffer ONBOARD ; 

ELSE 

buffer := "DEPARTED '; 

END if; 

Fut_printer(’>EDIC/" & buffer & "//"); 

IF u .ad .medic. ampn. change TEEN 
uri nt_comment ( N'EEIC"); 

END if; 

IF action is(draft) TEEN 



draft_aid(’>5DIC" ) ; 

INE ir; 

E.NI ii; 

n required_print (u .ad. reporg. change) TEIN 
CASE u . ad . repo rg. new_ rep^o rg\ I S 
WEEN cno => buffer” := "CNC”; 

VEEN cincpacflt => buffer := "CINCPACELT"; 

VEIN clnclantflt => buffer := "CINCLANTILT" 
WHEN cincusnaveur => buffer := "CINCUSNAVZUH"; 
END CASS,- 

put,_printer ("RIPCRG/" S buffer & " T & 
u. ad . reporg. d ig & "//")] 

II u .dd . reporg .airpn .change THEN 
urint coirire;nt ( "reporg ") ; 

INE iir 

II action_is^draft) TEEN 
drdft_didrREPCRG"); 

END ii; 

INE if; 

II required_prln t (u .ad . ve rify .change ) TEEN 
II u .ad .verl-’y . feedback_ve r = valid THEN 
buffer := "VALIE"; 

USE 

buffer := "CORHSCTEE"; 

END IF; 

put_pri filer ( VERIIY/" S. buffer & ’//"); 

II u . ad . ver i fy . arrpn . cha nge TEEN 
print c orrir an t ( ’'V erify ') ? 

INE IF?" 

II action_lsCdraft) TEEN 
draft aid( " veRIII") ; 

INE if; 

IM if; 

printer_of f ; 



ELSIE action is(log) THEN 
rilETEC "CORf^ANB.AMP") ; 

eiieteC'activ.ayp"); 
iileteOeeic.an’p"}. ; 
DELETE ( "reporg. A r? ’); 
riiETK "verify .amp" ); 



ELSE null; 

ENE II; 

— return the altered adnin_set 
END proces5_adrrinistrdtive; 

INI uradirin; 
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PACKAGI urair IS 

— This package provides access to the AIR process 
— for UNITREP construction 



PHOCirURI process_alr; 

— irain air suhprograrr for actions other than 

— rodify (which is in urairl/2/3 of unitrep3) 



INI urair; 



I 




I 



^ITR strlib.io, -- JANUS/i!EA Library 

printio, 
urgl tl , 
urglobal , 
unitrepE,urdirB; 

PACKAGE ECIY urair IS 
USE printio , 
urgltl , 
urglo tal , 
uni irepB ,urai r3 ; 

— Provides processing of UNITPI? <air situctions 

— for all actions with the exception of rodifv 

— lata sets AIRAUTE, CRE'#AUTF , AIRSTAT. CRE#/STAT, 
— RECCN and corresponding DELETES are supported oy 

— urair(x) 

two0 , del , auth : STRING; 
tig_string: STRING(14£); 

PROCEDURE zero_locdtion(i . j : IN INTEGER) IS 

— zeros all status inforrration for a particular 

— aircraft type(i) and location(j) 



BEGIN 

-- zero location set !i,j) 
u .ar . ac_type( i ). locat ion ( j ) .change := FALSE; 
u.ar .dc_ty-De^ ) .lccation( j) .delete := FALSE; 

IF J = 1 THEN 

— present position 
u .a r . ac_type ( i ) . locat ion ( j ) . i ss := 

ELSE 

u.ar.ac_tyne(i ) .lccation( J) .iss := nuli_s triug; 

END if; 

u.ar.ac_type{ i) . location( J) .airstat .change FALSE; 
u .ar . ac_type ( i ). locat ion ( J ). ai rs tat . d elete := FALSE; 
u. ar. ac_type( i ). location( J Kai rs tat .possess cd := twoO; 
u .ar .ac_type ( i K locat io n { j ). ai rs tat . f .TO := twoZ; 
u . ar .ac_type( i ) .lo cat io n ( J ) .ai rs t at . piTc := two0; 
u. a r . ac_type( i ) . locat io n ( j ) . ai rs t at . nTc := two0; 
u . ar . dc_tyue( i ).location(j) .airstat.arrpn. change 

:= false; 

u. ar . ac_type ( i).location(j).airstat.airpn. 

nurr ter_o f_l i ne 5 := 0 ; 

u . ar . ac_type( i ) .loca t ion (J ) .crews tat .cha nge := FALSE; 
u . ar . ac~type( i ). locat io n( j ). crewst at .dele te := FALSE; 
u.ar.ac_typeU ) .location( j) .crewstat .fortred := tvoU; 
u. ar . ac_type{ i ). locat io n ( J ). crews tat . ready := two0; 
u.ar.ac_tyDe(i).location(j).crewstat.dirun.change 

:= false; 
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u. ar . dc_type( i ) .lccation( j) .crewstat .drrpn . 

nurrber_o f_lirie5 ;= 0i 

u . ar .ac_type( i ). locat ion( j ) .recon .change := lALSi; 
u.ar.ac_type( i ). locat ion ( J ) .recon .delete := FA.L5I; 
u. ar. ac_type( i ).location(j).recon. 

nv'tnher_of_capabiiities := 0; 
u.ar.ac_type(l).locdtlon(j).recon.airpn.change 



:= false; 

u.ar.ac_type(i).locatlon(J).recon.atrpn. 

nurrber_of_line5 := 0 ; 

FOS 2 IN 1 . .irar_recon LCCP 

u.ar.ac_type(l) .location(j) . recon .capabil 1 ty ( z ) 

:= null_string; 

INC ICCP; 

IND zero location; 



PHCCErCEI zero_ac_type( i : IN INTEGER) IS 

— zeros the stdtus information for a particular 

— aircraft type 

BEGIN 

-- zero cut all items 
u. ar. ac_type{ i ). change := FALSE; 
u .ar . ac_type( i ) .delete := FALSE; 
u.ar.dc_type( i ) . iss := null string; 
u . ar . ac_type( i ). ac_au th. change := FALSE; 
u .a r .ac_type( i ) .ac_auth .del ete := FALSE; 
u . ar . dc_type { i ) . dc "dUth . i ss := twoZ; 
u.ar.ac_type( i ) .ac_auth.ampn.change := RAISE; 
u . ar . ac_type f i ) . ac_au th .ampn . nvmbe r_of _lines := 0 ; 
u .a r .ac_type ( i ). crews _dUth . change := FALSE; 
u. a r . ac_ type ( i ) . crews_auth . delet e := FALSE; 
u .ar .dc_type ( i ) .crews~auth . i ss := two0; 
u.ar .ac_type( i ) .crews_auth .ampn .change := FALSI; 
u . ar . dc_type( i ) . crews_duth . dirpn .numher,_cf _ 1 ines := 0 ; 
u. ar . ac_type( i ) . number_of _locations := i; — home plate 
FOR j IN 1 . .miax_locatior.s LOOP 
zerc_l oca tion ( i , J ) ; 

INI loop; 

ENI ze ro_ac_type ; 



PROCEDURE prccess_air IS 

USE strlih; — Int_to_Str, Extract , Posit ion , Length 
USE io; — Open. CLOSE, DELETE. GET_LINE 

— main modification algorithm for air data 

FUNCTION print_with_delete(deieted : BOOLEAN) 



RITUHN ECOIIAN IS 

— used to deteririne if a deleted set is to be 

— printed during rressage preparation and draft 

— docurrent printing 

BIGIN 

II (action_is(print) AND deleted) 

OR 

(action_is(draft ) 

AND NOT program. messdge_transrri tted 
AND deleted) THIN 
RETURN TRUI; 

ILSI 

5ITURN lAISl; 

INI ii; 

END print_with_cielete ; 

FUNCTION ori nt_wo_delet e ( changed .deleted : BOOLEAN) 

RETURN BOOLEAN IS 

— used to determine if a set is to be printed 

— with or without a delete during prints, 

— verification and drafts 



BEGIN 

II (actio n_is(print) AND changed) 

OR 

faction_is (verify) AND NOT deleted) 

OR 

(act ion_is (draft ) AND (NOT deleted)) TEEN 
RETURN true; 

ELSE 

RETURN false; 

INI ie; 

END print_wo_delete; 



BEGIN 

IE a c ti 0 n_i s ( neww ) TEEN 
ICC? 

success := TRUE; 
u.ar. change := FALSE; 

ICR i IN 1 . .u .a r . number of _ac_types LOOP 
u .ar . ac_type( 1 ) .change ;= FALSE; 

IF u .ar .ac_type { 1 ). delete THEN 
FOR z IN i . .rrax_ac_ types-1 LOOP 

u.ar.ac tyoe(z) := u .ar .ac_tyDe (z + l) ; 

END LCOP;“ 

IF u . ar . number_o f _ac_ t ypes > 0 TEEN 
u .ar . number_o f_ac_types : = 

u.ar. numb er_of_ac_types-i; 



FNI) IF? 

zero_ac_type(rrax_ac_types) ? 
succiss := FAISFT 
INI IF? 

u.ar. ac_type(l).ac_auth. change ;= FALSE; 
u.ar. ac_type( 1) .ac_auth.arrpT] .change := FALSE? 

IF u „ar .ac_type (i ) .ac_auth .delete TEEN 
u . ar. ac_type{ i ) . ac_auth .de le te := FA.LSZ? 
u.cir.ac_type(i) .dc_duth.iss := twc0? 

KNE IF? 

II . ar.. ac_type( i ). crews_auth. change := FALSE? 
u . ar . dc_type( i ). c rews'auth . airpn .change := FALSE? 
IF u .ar .ac_type (i ) . crews_auth .delet e THIN' 
u.ar.ac_type(i ) .crews_ai!th .delete := FALSE? 
u .a r .dc_type ( i ) . crews_duth . iss := two0? 

FNE IF? 

FOP j IN 1 . .n.dr.ac_type(i ) .nu!rber_of_locQticns 

LOO? 

u . ar. ac_type( 1) . 1 ocati on ( j ) .chd nge := FALSE? 

IF u .ar .ac_type (i ) .location (j ) .delete TFEN 
u . ar . ac_type( 1 ) .location ( j Uaelete := FALSE? 
FOR z IN J . .iTdX_locdti ons-1 LOO? 
u.ar.ac_type(i ) .locatlon( z) : = 

n.ar.ac_type(i) .location (z*l) ? 

FNE LOOP? 

IF u. ar . ac_ty-De( i ) . nurrber_of_lo ca t ions > 1 

THEN 

u .ar .ac_type{ i ) .nurrber_of _locdt ions : = 
u . ar . ac_ tyoe ( i ) . nurrber_of _loca tions - 1? 
END IF? 

zero_location(i ,rrdi_lccdtions)'? 
success := FALSE? 

ENE IF? 

u.dr.dc_type(i) .lccdtion(j) .dirstat . char.ee 

:= FALSE? 

u.ar.ac_type(i).location(j).airstat.ampn. 

change := FALSE? 

IF u.ar.ac_tytie{i).location(j).alrstat.delete 

TEEN 

u.ar.ac_type(i) .location(jj .airstat. delete 

:= FALSE? 

u.dr.dc_type(i) .locdtion(j) .airstat. 

possessed := twoO? 

u.ar.ac_type(i) . ioca ti on ( j ) . airst at . f.xc 

:= twc3? 

u. ar.ac_type(i).locationfj). airstat. prrc 

:= tv 00 ? 

u.ar.ac_type(i) .location (J) . airstat. nrrc 

:= tvo0? 

ENE IF? 

u .a r.ac_type( i). location (J).crewstat. change 
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u.ar.ac_typefi).loc 2 tlon(j).crewstat.ar‘pn. 

char.ge := lALSZ; 

IF u.ar .ac_': 7 pe (i ) .locdtion(J).crewstai. 

delete TEZN 

u.ar.ac_type(l) .locatlon(j) .crevstat. delete 

:= JALSi; 

u.ar.ac_type( 1) .locaticn(J). crews tat . forrred 

:= twcZ; 

u .ar . ac_tvi^e( i ). loca tl 0 n ( j ). crews ta t . ready 

:= tvog; 

ZM if; 

u.ar.ac_type(i).location(j).recon. change 

:= ZA.LSi; 

u.ar.dc_type( i) .location(j) .recon .arr-on .change 

‘ := z.^isz; 

IF u.ar.ac ty ne ( i locat 1 on ( i ). recon . delete 

THZN 

u.ar.ac_cype(i) .location(j) .recon .delete 

:= FALSZ; 

FC?. 2 IN 1 . ,!Tdx_ recon LCCP 
n. ar .cc_type( i ' . Icca 1 1 on ( j ) . 

reccn . canabllity( 2 ) := null_st rl ng ; 

INI iccp; 



INF if; 

ZNI loop; — location 

ZM ICC?; — types 

iXiT WHIN success '• 

F.\E LCCP; 




act 

f 



0 n_ i s ( rr c d 1 f y ) T F Z N 
-- prccess_ac_type in UNITP.ZF3 . CC^‘ 



ZLSIF acTlon_is (prin 
n r i n t e r on; 



) CH action_i s(araf t ) CP. 

action_is (verify' 



TE 



Z N 



FOB 1 IN 1 . .■u.ar.nuniber_of_ac_types LOOP 
IZ act ion_is (draft ) THZN NZV_?AGZ; ZNT IF; 

— airauth sets 

buffer := "AlHAUTH/" & u .ar .ac_type (i ' . iss S. 

auth & u.ar .ac_type( i ) .ac_aut h. iss & 

IF print_vith_delete( 

u . a r . ac_type ( i ) .ac_auth .delete) THZN 
put_print er (del & buffer); 

ZLSIF print_wc_delete ( 

u.ar. ac_type(i ) . ac _au th .c hange . 



u .dr . dc pe ( i ) .ac_duth .delete) THIN 
put_printer( buffer ) 

IF u . ar . ac_type ( i ) , ac_auth .dTpn . chd nge TEIN 
print_conTrent ("aIHATH" & Iat_to Str(i))> 

ENT if; 

FNC if; 

-- crewauth set 

buffer := ’’CP.EWAUTE/" & u . ar . ac_type ( i ) . i s s &,,auth 
& u . ar . ac_type ( i ) . c rews_cu t h. i ss & ”//"; 
IF pri n t_wi th_del ete( u . ar . ac_ type f 1 ) . 

c rews_a*jth .dele te ) TEEN 
pu t_pri n t er ( del & buffer); 

SLSIF print_wo_deletef 

u .a r .ac_ty pe ( i ) .c revs_ auth .change , 
u .ar . dc_type ( i ) .crews_au t h .d e?. e t e ) THIN 
put_printer( buffer ) ; 

IF u . ar . ac_type (i ). crews_auth .atT'pn . change TEIN 
rrint_coirrrent ("CRVATE" S. Int _ to_S tr ( i ) ) I 

ENi if; 

END if; 



IF action_is (draft ) TFFM 

draft_aid ("air AUTHORIZATIONS " ) ; 

END if; 

— by location 

FOR j IN 1 . . u. ar . ac_type( i ) . nurber of_locations 

LOOP 



— airs tat set 

bpjffer := "aIRSTAT/" 6. u .ar ,ac_type (i } .iss S. 
’/PCSS:" S. 

u.ar.ac_type(i). location' j) .airstat. possessed & 
& u .ar . ac_type ( i ) . 1 ocation ( j ) . is s & "/Ff^C:" 
& u.ar.dc type ( i ). locdt ion ( 1 ). ai; s tat . frrc & 

ff «f — 

/Pf^C: 

& u.ar.ac tvue ( i ). locat ion ( ,1 ). airs tat .pmc & 

// ; 

IF print_with_del ete( 

u.ar.ac_type(i) .1 oca ti cn( J ) .a i rstat . delete ) 

TEIN 



put _prin ter (d el 6 . buffer); 

ELSIF print _wo_delete ( 

u.ar .ac_type (i).location(j). airs tat. change, 
u.ar.ac_type(i).location(j). airstat. delete) 

TEIN 



put_prin ter (buffer) ; 

IF u .ar .ac_ type (i ). locat ion ( J ) . 

airstat .amp n. change TEIN 
priht_corrrent ("AIRSTA" & Int_t o_S tr ( i ) & 

Int_to_Str(j)); 



END IF 



END if; 






f 



— crewstdt set 

buffer := "CEIWSTAT/’' & u.ar.ac typed ).iss & 
/FORM: S, 

u.ar.dc_type(i).locdtion(j) .crewstat .forred S 
J S> u. ar. ac_type( 1 ). location ( j ). is s & 

/RFADY:” & 

u .ar .ac_type ( i ) . loca tion ( j ) .crewsta t . ready & 

; 

IF print_wi th_delete( 

u. ar. ac_t yp e (i). loca tion (j).cre’vstct. delete) 

T n iL I ] 

put_prir.ter(del & buffer); 

ILSIF print_wo_delete ( 

u.ar.ac_type(i).location(j). crewstat. change, 
u.ar .ac_type ( i ) .location(j). crewstat. delete) 

TH2N 

put_printer (buffer) > 

IF u .ar .ac_type (i ) .location (j ) . 

crewstat .dFpn . change THS.\' 
print_coirr'ent ( ''CE>/STA" S. Int_to _S tr ( i ) S. 
Int_to_Str(J) ); 

INF if; 

INI if; 

— recon set 

big_string := "RECON/" & u .ar .ac_type (i ) .i ss_d„ 
"/" S. u. ar . aG_tyce( i ) . loca t io n ( J ) . iss i 
IF print_with_delete( 

u.ar.ac_type(i) .lccation(j) .rec on. delete 
ANT NOT 

u. a r.ac _ type( i). loca tion (j).airstat. delete') 

TEFN 

put_printer (del & big_string S. ’’/”); 
ZLSIF'’prlnt_wo_delete ( 

u.ar.ac_type(i) .locction(J) .reccn. change. 
u.ar.ac_type(i) .location (j) .recon .delete) TFI.N 
FOR k IN 1.. u.ar .ac_type( i ). location ( j . 

recon . nuirber_ of _capa ti 1 i t i es IOC? 
big_string := big_string & 

u .ar .ac_type( i) . location( j ) . 

recon . capabil ity (k ) & "/ ; 

INI loop; 

big_string := big_string S "/"; 

IF Length ( big_s tri ng) > C9 TF.FN 
FOR z IN REVERSE 1..69 LOOP 
IF blg_string (z ) = '/' TEEN 
nurrber := z ; 

exit; 

ENL if; 

ENP loop; 

Put_prlnter(Extract(blg_string,l,nurrber-l)); 
put_printer ( Extract ( big_st ring ,nurber, 
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Lengih(blg string)) ); 

ILSE 

put_printer(big_string) ; 

ENE if; 

ENE if; 

IF action_is (drdft ) TEEN 
put_printer( i_string) ; 
jut_printer ( 

Hecon Ccipdbility Definitions ; 

FOR z IN 1 .. u . ar. ac_ type ( i ). 1 oca t io n (j ) . 

recon . nun'ber_of capabilities LOO? 
Open (fyle,”TA£LZ.B-3”,?.ead_Cnly ); 

LOOP 

buffer := GET_LI NE ( f yle ) ; 

IF u .ar .dc_type ( i ). locat i on ( J ) . 

recon .cape bill ty ( 2 ) = 
Extract(buffer,l ,Posltion('’ , buffer)-!) 

TEEN 

put_printer<' buffer) ; 

CLOSE ( fyl e) ; 

exit; 

ELSIF ENE_OF_FILE( fyle) THEN 
CLOSE(fyle) ; 

exit; 

END IF; 

END loop; 

END loop; 

ENT if; 

IF u.ar.ac_type(l).locatlon( i) .recon .amp n. change 

TEEN 

print_comrent ( "recon'' & Int to_Str(i) 6. 
Int_to_Str( j)T ; 

ENE IF; 

IF ac tion_is(draf t ) TEEN 
draft_did{ AIR STATUS"); 

ENE if; 

ENE loop; — locations 

ENE LOOP; — ac_types 

IF actio n_is(d raft) TEEN 

new_page; 

d raf t_aid ("aIP - NE’a'); 

INI if; 

pri nter_of f ; 
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ILSLF action_is (log ) lEIN 

— "clean up amplification files 
JCR i IN 1.. max_ac_types LOOP 
buffer := Int_to_St r( i ) & 

CZLITirAIRATE” & buffer); 
riLZTE( "CEWATH" & buffer); 

FCP. J IN 1 . .max_locations LOOP 

buffer := Int_to Str(i) & Int_t o_St r ( j ) & 

".ai^p'T 

DELETIC’AIRSTA" 6. buffer); 
rEIZTI('‘CRWSTA" S. buffer); 
rSLZTI(”RECON" & buffer): 

END loop; 

END loop; 



ZLSI 

Niiii; 

SNL iz; 

ZM p:’ocess_air ; 

■D-trn T r 

tvo0 := 00 ; 

cel := ‘pZLZTZ/”; 
auth := ’/AUTE:"; 
END urair; 
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PACKAGE urairl IS 

— Interface tc the rrcdification of air data 
PPCCIIDPS proces£_ac_t/pe:; 

INI urairi; 
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WITH iOtStrlib, 
consio , 
urglobal , 
unit repE , 
urai rE , 
ural v2 , 
urair3 ; 

PACKAGE 3CIT urairl IS 

USE io, — Open ,C1CS i ,GET_LINE 

Strut, 
consio , 
urglotal , 
uaitrepE , 
urai r3 , 
urai r2 , 
urair3; 

— provides for rrodif icatlon of AIR data for 
— UNITREP construction 

PEOCErURE process_ac_type IS 

— Initial interface to the rrodif icat ion of air 

— infortration. The aircraft type ir- selected, 

— then aircraft type location is selected, 

— (procedure process_locati on - ur<iir2) 

— then aircraft type at selected location status 

— information is presented for modification 

— (procedure process_status - urair3) 

— Elrectly supports AIRAUTF and CR £’«AUTE data set 

— and PELETE for each. 

index: INTEGER,* 
check_location; 300LIAN; 

BEGIN 

author! zatlon_page : LCOP 
f ill_auth_mask,* 

IE u.ar.nutrber_cf_ac_types >" frax_ac_types TEEN 
index := max~ac_types ; 

ELSE 

index := u.ar. number of ac types-^i; 

INI if; 

ECR i IN 1 . .index LOOP 

IF u .a r .ac_type ( i ) . is s /= null_string TEEN 
putxy(5,slo-^i , blank) ; 
getxy_immediate(5,sio-^i ,key ) ; 

CASE key IS 

’*HEN no_input I space => 

null; 

WEEN xltab => 

process_auth(i,check_ location); 
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IF check_loca 11 on THIN 
procesi_loc<itlon( i ) ; 
f lll_auth_Frask; 

INE if; 

’VHEN c => — change name only for misspelling 
clear_field(16,slc+i,7); 
getxy_itrtrediate( ie , slo + 1 ,key) ; 

IF key /= no_input ANE key /= space THIN 
getxy(17,slo+i, buffer, 6) ; 
buffer := Char_to_Str (key ) & buffer; 

— verify ac_type 

Open (f yle , "TA3LE . B-2 ,Read_0nly ) ; 

LOOP 

file_buffer := G5T_LlNZ(fyle) ; 

IF buffer = file_buffer THIN 
ClCSI(fyle) ; 

u . ar . ac_ type ( i ) .i ss := buffer; 
process_au'th(i ,check_ local ion ) ; 

IF check_l GCati on THIN 
proc6SS_iocation(i); 
f i 11 _auth_mask ; 

ENE if; 
exit; 

ENE if; 

IF END_OF FILI(fyle) THEN 
ClCSE(fyle) ; 

error(23); — type -^ot in table b-2 

exit; 

ENE if; 

ENT LOOP ; 

ELSE 

error(42); — invalid ac_type 

outxy(ie,slo+i,u.ar.ac type(ij.iss); 

EME if; 

WEEN cues => 

help ("air access" ) ; 

view_table( " table .E- 2" ) ; 
fill_auth mask; 

WEEN OTHERS “=> 

error(e); — incorrect input 

ENE case; 

ELSE — new ac_type 

getxy_iiTTTedidte(ie,slo+i ,key ); 

IF key /= no_input ANE key /= space TEEN 
getzy ( 17,sIo-^i, buff er ,6) ; 
buffer := Char_to_Str(key) & buffer; 

; — verify ac_type 

Open( f yle ." table. 3-2" , Read Only) ; 

LOOP 

fil6_buffer := GET_IIM(fyle) ; 

IE buffer = file buffer TEEN 
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CLOSKfyle) ; 

u.ar .ac_type( 1 ) .iss := buffer; 
u . ar .nurrber_o f _ac_ty pe s : = 

u .ar .nurrber_of_dc_types 1 
process_auth(l, check_ location ) ; 

II check_location TEEN 
process_locdtion(i) ; 
fill auth mask; 

END ie; 
exit; 

END Ii; 

IF END_OF_FILE( fyle) TEEN 
CLOSE (fyle) ; 

error(33); — tyue not in table b-2 

exit; 

END if; 

END loop; 

INI if; 

END if; 

EN£ loop; — for 

lldnk_inst_area; 

putxy( Z ,17,"<ENTEP.> to_ Continue, Enter <X> to " ii. 

"p.eselec t : " ) ; 
reselect := irdrk(44,17) ; 

EXIT author i 2 a tion_page '*EEN NOT reselect; 

ENI LOOP author i Zation_pdge ; 

END process_ac_type; 



NE urairi; 



PACKAGE urair2 IS 



— Interface to air authorizations and location 
— information 

FR0C5EUHI f i ll_dUth_mask; 

FRCCErUEE process_auth ( i : IN INTEGER; 

check_ Iccdt ion : OUT BOOLEAN); 

rROCELUFE process_locat ion( i: IN INTEGER ); 

ENT urairS; 
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'»ITE strlib, — JANUS/ATA library 

con sio , 
uni t rep3 , 
urairB, 
urutll , 
urglti , 
urglcbdl , 

1a I* i r * 

PACKAGE 3CrY"urair2 IS 

USE strlit, — Extract 

consio , 
unit rep3 , 
urairP, 
urutil , 
urglbl , 
urglcta] . 
urair2; 

PRCCEEUPE process_location( i: IN INTEGER) IS 

USE strlibj 

— entry point to modify status information at a 

— particulor location 

PROCirURE Iccat j on_mask IS 
USE strlib; — Extract 

BEGIN 

bo rder ) 

putxy(0,l,"AlR - LOCATIONS"); 

p’utxy( 2’7, 3,' Aircraft Type"); 

putxy (6 ,5 , ’access" ) ; pu txy ( 40 , E , " Lcca t i on" ) ; 

EOR z IK 1 . ..max_locations LOCP 
putxy (9 ,slo+ 2 , " ( )"); 
putxy(32,slo+2,Extract(dashin,l,30)); 

INI IOC?; 

putxy ( 0 , 13 , da shin ) ; 

putxy V 12 , 15 , "<X> at ACCESS ( ) next to desired ” & 
I^Locd t i on " ) ; 

pu txy( 15 , 16 (automat ic entry_into first empty " S. 
"location for NEW"); 

putxy ( 12 , 17 , "<C> to change a location name — " & 
".MISSPELLING CNLY"); 

putxy(12,18,"<?> for ESLP"); 

putxy ( 12, 20, ”<.ENTER> for next ( )"); 

ENI location_maslc; 

PROCEIURE fill_location_mask IS 
BEGIN 

locati on_mask; 

putxy(42,3,u.ar . ac_type ( i ) . i ss ) ; 

ECR 2 In 1.. u .ar .dc_ type ( i ) .number _of_lo cat i on s 
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LCCF 

putiy ( 32 ,slc+ z ,u . ar .ac_ type( i ) . iocat Ion ( z ) . iss ) ; 
INE LOCP; 

putxy(32,slo+l,"HOr^i PLATJ") ; 

ENE f lll_locdt ion jnask; 

index: INTIGIP; 

3EGIN 

lo caii on_page : LOOP 
fill_locat icn_rrdsk; 

II u. ar . ac_ type( i ). nnir ber. of _ Local ions >= 

max_i oca li or.s THEN 

index := r"ax_loca tions ; 

ELSE 

index := u.dr.ac tyoe (1 ) .nuirber_of_lccd iions-"i; 

ENE if; 

ICK j IN 1.. index LOOP 

IF u .dr .dc_iype ( i ) . io Cdt ion ^ j ) . is s / = 

nuil_string TEEN 

getxy _irr!rediate(i0,sio + j ,key ) ; 

CASE key IS 

WEEN no_ini3'at 1 space => 

null; 

WEEN xltab => 

process_staius( i , j) ; 
f i 1 1 _1 0 ca 1 1 0 n _m as k ; 

WEEN c => 

IF j /= 1 TEEN 

ge txy_irriredia le ( 32 , s lo * j , key ) ; 

IF key /= no input ANE key /= space TEiN 
clear„field(32,slo + j ,30 ); 
putxy ^?2, si 0-5- j ,Cb.ar_to_Str( key) ) ; 
geixy ( 33, sic-' j , duf f er ,2S ) ; 
buffer ;= Char_to_Str( key ) 6. buffer; 
u.ar.ac_type(i).L ocation(J).iss 

:= buffer; 

process_s tabus ( i , j ) ; 
f ill_loca ti on_tra sk ; 

ELSE 

errcr(3e); -- invalid location change 
putxy (32, slo-^ j , 

u.ar.ac_type(i) .location(j).iss) ; 

ENE if; 

ELSE 

error (37) ; 

— cannot change horreplate location 

FNE if; 

WEEN oues => 

help("LOCATION” ) ; 
fill_lccation_rask; 

WHEN OTHERS => 
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error(e); --Incorrect ir.Dut 

INI case; 

51SI — new Icccaiicn 

getjy_irrrrediate(3£, slo + j ,Aey ) ; 

II key = no_lnput OE key = space 7EIN 

ixit; 

ELSE 

getxy(33,slo + j,buffer ,29) ; 
buffer := Char_to_Str(Key) & buffer; 
u.ar.ac_type(i) .location' j ) .iss tuffer; 
u .ar .ac_type( i ) .nu!Tber_of _locat ions ; = 

u.ar.ac_type( i) . nun'ber_of__iccdtion 5 + i; 
process_status( i , j ) ; 
fill location irasK; 

INI IFT 
END II ; 

5NE LCCP; 

tlank_inst_area ; 

putxy (0 , 17 , ,,<ENTEH> to Continue, IK'TZR to ” & 

"p.eselec t : " ) ; 
reselect := rrark{44,17) ; 

EXIT WHIM NOT reselect; 

EM ICOP locat ion_page; 

INI process_l ocation ; 



PROCIEUFZ auth Task IS 
3IGIN 
border; 

putxy (0,1 ,"aI3 - AUTECP.IZATICNS" ) ; 

putiy ( 16 ,4 , ”A ir craf t ^Aircraft Crews” cs. 

Deployed”'); 

putxy (3 ,£,"aCCESS Type _,Autliori ;:ed" & 

Authorized Locations"); 

FOn i IN 1 . .F'ax_ac_ type s LCCP 

putxy(4,slo+i;i””( ) ( ) ” S.„ 

— ( ) — ( ) — ); 

ENI loop; 

putxy (0 ,13 ,dashln ) ; 

putxy (0, 14, "<C> to CHANGE, <E> to DELETE, <H> to ’’ & 
"RESTORE, <A> to Ar'FLIFY, <V> for HELP””); 
putxy( 22, <X> for Access ) ; 

putxy(0,ie. At ACCESS ( ) <X> <?> , ”” & 

/”<C> to change Type (MSSPELLED CNLY)’”); 
outxy (0 , 17 , "At an Authorization ( )..,.<C> <D> <R>" & 

”; <A> <?>"); 

putxy (0 , 16 , "At a Location ( ) <X> to view " & 

"the Locations of the tyre aircaft””); 
putzy (22,20, ””<INTEH> for next ( ) ”” ) ; 
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INE ai:th_n‘ask; 

FROCirUPI fill avith mask IS 
BEGIN 

auth_rrask; 

rCE i IN 1. .u.ar.nurrDer_of_ac_types LOOP 
p\3 txy ( 16 . slo + l ,u .ar .ac_ typeli ) . iss ) ; 

IP u . ar .ac_type ( 1 ) . dele te THEN 
putxy (8 , slo + i , d mark); 

PNI IP; 



IP u.ar.ac_type(i ) .<±c_auth. change THEN 
putxy(3 6, slo+i, star); 

IP u.ar .ac_type( i ) .ac_a\;th .arrpn .change THEN 
putiy '38 ,slc + i , a_rrark ) ; 

SNE if; 

ENE IP; 

IP u . ar .ac_type ( i ) . ac_dut h .delet e THEN 
putiy(36, slo+i ,d_mark ) ; 

ENE IP; 

putxy (40, slo+i, u.dr.dc_type(i).ac_duth. iss); 



IP u . ar .ac_type( i ). crews_auth . change TEEN 
put xy(£ 07 slc+i, star); 

IP u . ar . ac_type ( i ). crews_auth . arrpn . change THEN 
pv.txy ( £2 , slc + i , a_ma rk )'; 

ENE ip; 

ENE ip; 

IP u . ar . ac_type( i ) . crews_auth .cele t e THEN 
putxy(£0,slc + i ,d_rTdrk); 

SNi if; 

pu txy ( £4 , slo-^i ,u . ar .ac_type { 1 ) .crews_au th . i s s) ; 



putxy( 69, slo+i , I 
ENi loop; 

ENE fill auth mask; 



t_to_Str(u.ar.ac_type(i) . 

number cf locations)) 



FPOCEIUP.E prccess_auth(i : IN INTEGER; 

check_location : OUT 30CLEAN) IS 

BEGIN 

rodify_airauth : LOOP 
put xy( 33, slo + l, blank); 
get xy_immediate(33, slo+i, Key) ; 

CASE key IS 

'^HEN no_input I space => 

EXIT mod*ify_d irauth; 

WHIN c => 

IF u.ar.ac_type (i ) .ac_auth. delete THEN 
errcr(31); -- deleted/cant modify 

ELSE 
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LOOP 

buffer := get3cjr_digi ts (40 , slo + i ,2 ) ; 

IP buffer = nuli_slring THIN 
putxy (40, slo+iT 

u.ar.ac type(l).ac autb.iss); 

EXIT; 

ELSE 

u.ar.ac_type(i) .ac_auib. iss := buffer* 
u.ar .ac_type( i ) .ac_auth .change ;= TRUE; 
u .ar .ac_lype( i ) .change := TP.UE; 
putxy (36, slo+i ,star ) ; 
putzy (40 , slo-^i , 

u . ar . ac_tyue ( 1 ) . ac_auth . i ss) ; 

exit; 

ENT ie; 
ene loop; 

ENE if; 

WEEN a => 

IF u . ar .ac_type (i ) .ac_auth .change THEN 
process_corr treat ("aIPATE’’& Int _t o_St r ( i ) , 

u . a r . ac_ type ( i ) . a c_auth. arrpn ) ; 

f ill_dUth_rrdsK; 

ELSE 

errcr(27); --no set to arulify 

ENE if; 

WEEN d => 

IF u. ar . ac_type ( i ) . ac^auth . cha nge TEEN 

error(35); — set changed, can't delete 
ELSE 

u.ar.ac_type( i) .ac_auth. delete := TRUE; 
putxy (36, slo+i , d_rra rk) ; 

Fme if; 

WHEN r => 

IF u . ar .ac_type (i ). ac_auth .delete THEN 
u.ar.ac_type( i ) .ac_dUth. delete := FALSE; 
uutxy (38 ,slo + i , olank ) ; 

ELSE 

error(34); — set not deleted 

ENE if; 

WFEN ques => 

heip( " aieauth") ; 
fill dUth_trask* 

WFEN OTHERS => 

error(6); — incorrect input 

ENE case; 

ENE LOOP rrodify_dirauth; 



modify_crewauth : LOOP 
putzy( 47, slo+i, blank); 
getxy_iirirediate(47, slo + i, key ) ; 
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C.»SE key IS 

T«iEEN no_input ! space => 

EXIT nrodify_crewauth» 

WHEN c => 

IE u.ar.dc type ( i ) . c rews_aut P . Geiet e THEN 
error(3l7» — deleted/cant rrodify 

ELSE 
lOCP 



buffer := getxy_digits (54 ,slo +i ,2 ) ; 

IE buffer = nuil_string TEEN 
putxy (54,slo + i , 

u.dr.dc_tyt,e(i) .crews_duth.iss) ; 

exit; 

ELSE 

u . dr .dc_type ( i ) .crews _dut n . i s s := Suffer; 
u. ar. ac_type( 1 ) .crews_auth. change := TRUE; 
putzy (50 ,slo+i .star) ; 
u. ar. ac_type( i ) .Change := TRUE; 
putzy (54, slo+i , 

u.ar.ac type( i ) . cr ews_autn. i ss ) ; 

EXIT; 



END ie; 

ENI loop; 
iNE ir; 
kEEN a => 

IE u. ar.ac_type( i ). crews_auth. change THEN 
pr oces s_commen t ( " CRWATE "S. Int_to_St r( i ) . 

u.ar.ac_ typed) .crews_dUth.dtrpn) ; 
f 1 1 i_auth_.Task; 

ELSE 

errcr(27); — no set to arplify 

ENI ie; 

WEEN d => 

IF u. dr .dc_type(i ). crews_duth. change TEEN 
error(35); — set changed, can't delete 
ELSE 

u.ar.cc_type( i) .crews_duth. delete := TRUE; 
putzy (50 , slo + i , d rrark); 

ENE ie; 

WEEN r => 

IF u. ar .ac_type ( i ) • crews_aut h . d el et e TEEN 
u .d r .dc_type( i ) .c rews_auth .de le te := FALSE; 
putzy (52, slo + i, blank) ; 

ELSE 

error(34); — set not deleted 

EMI if; 

WHEN aues => 

helpC'CREWAUTE" ); 
f i ll_auth_irask; 

WEEN OTHERS => 

error(6); — incorrect input 
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INI; CASi; 

5NI loop rrodif y_cre'«'-ayth; 

check_l ocdt i on := fr<irk(62 , slo + i ) » 
INI process_auth ; 

INI iirairS; 
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PACKAGE uralr3 IS 

— Interface to air status inforration 
slo: CONSTANT ;= — screen line offset 

PHOCirUEE blank_inst_area ; 

FP0CEE13PE process_status ( i , j : IN INTZGEE); 
ENE urair3; 
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WITH io.strlib, --JANUS/AIA llDrary 

consio, 
urgl tl , 
unit rep3 , 
urairB , 
urutil , 
urglobal ; 

PACKAGE ICEY urair3 IS 

USE consio, 
ur^l tl , 
unitrepi, 
urai r 3 , 
urutil , 
urglo tal ; 

— This paclcage provides the routines necessary to 

— modify air status information. 

— (AIPSTaT, CHE’#STAT, HZCCN data sets) 

PROCEEDPE tl ank_i nst_a rea IS 
BEGIN 

lOR 7 IN 14. .20 LCCP 

nutxy f 0 ,y ,tlanicln ) ; 

ENI LCOP; 

ENI tiank_ins t_area ; 

PROCEIURE nrccess_status( i , j : IK IKTEGSP) IS 
USE strlit; 



FRCCErURE recon_mask IS 
BEGIN 

putxy(S,9,”( ) -3- Reconai ssance Capability 

"Prima ry " ) ; 

putxy ( 10 ,11 " £. 

.. ); 

putry(10,12, c. 



ENE recon_iTaSlc; 

PROCEIURE status_mask IS 

USE strlit; — Extract 

BEGIN 
torder; 

pu txy ( 0 , 1 ,]]A IP. - STATUS )» 

?utxy(0 ,3 ."Aircraft Type "); 

putxy (31,3," ( ) Location"); 

putxy (48 ,3j^Extrac t ( da shin , 1 ,30 ) )^ ; 

putxy(6,5, ( ) -1- Aircraft’); 

putxy (48 , 5, " ( ) -2- Crews’ ); 

pu txy ( 2 , 6 , ’ Fo s s es s ed EMC NMC ); 

putxy(48, 6, "Formed Ready”); 
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putxy(£,7 putxydo,?,"— — 

putxy (50,7, — — ; 

recon_rraslc; 
putxy (2 ,13 ,ddshln ) ; 

putxy(0,14,"ENTEH <C> - to CEANGE - ” i. 

^^(in fields 1,2,3 only)"); 

putxy(e,15,'\r> - to EEIETE - (dt Locdtion will ” & 
"EELETE all inf orira ti on ) ” ) ; 

putxy(e,ie, 

<H> - to RESTORE - (restores deleted fields)"); 
pntxy(8,i7, 

<A> - to AMPLIEY - (in fields 1,2,3 only)"); 
putxy(a,ia,"<?> - for FILE - (all fields)"); 
putxy ( 2 ,ia ,dHSN : ENTER Required information."); 
putxy (3,20, " (an <ENTER> with no information is " S. 
"assurrired to be NO CHANGE)’’); 

ENL stdtus mask; 



FPOCEELRE fill_recon IS 
BEGIN 

recon_irask; 
putxy ( £4, 9, 

u.ar.ac_type(i).location(j;‘.recon.capabilitv(l)); 
EOR k IN 2. .6 LOOP 

putxy (10+(k-2 )=''!! ,11 , 

u. ar.ac_type(i).location(j). recon. caoability(k)); 

EM loop; 

FOE k IN 7. .11 LOOP 
putxy(10+(k-7)^ll ,12, 

u.ar.ac_tyoe(i).location(j) .recon.capaoility(k)) ; 
EM locp; 

IE u. ar. ac_type ( i ). lo cat ion ( j ), reco n. dele te TEEN 
putxy(12,9,d_Tark) ; 

ELSIE u .ar .ac_type ( i ) .10 Cdt ion ( j ). recon .chdnge TEEN 
putxy( 12,S,itar ) ; 

IE u.ar.ac type ( i ). lo cation ( j ) .recon . ampn . change 

THEN 



putxy ( 14 , 9 ,a_rrark ) ; 
E.NL ie; 

EM ie; 

ENL fill recon; 



PROCEEURE fill status_rrask IS 
BEGIN 

sta tus_rra sk; 

putxy(14,3,u.ar.ac_type(i ) .iss) ; 

•DUtxy( 48 ,3 ,u.ar . ac_type( i).location(j).iss); 
IE j = 1 TEEN^, 

putxy (4fi ,3 , "EONE PLATE"/; 

ENI ie; 
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II u.ar.ac_type (1 ). locaiion( j) .delete THEN 
putxy (35 ,3 ,d_rrarit: ) > 

IlSIF u. ar. ac_type( i ). 1 ocatioa ( j ). change THIN 
putxy (35 ,3 .star ) ; 
iNE if; 



II u.ar.ac_type(i) .location(j) .airstat .delete THIN 
putxy (le ,5 ,d_rrdrlt ) ; 

5LSIF u.a r.ac_type( i).location(j). airstat. change 

THEN 

putxy ( 10 ,5 , star ) ; 

IF u .er .ac_type (1 ) .loca tion( j ) . 

ai rstat .ampn. change TEEN 

putxy (12»5,ri_rrd rk); 

INE if; 

INE if; 
putxy (5,7, 

u . ar . ac_type (i).iocation^J) .airstat. possessed) ; 
putxy(ie,7,u.ar.ac_type(i) .location(J).dirstdt.fmc) ; 
putxy(22, 7, u.ar.ac_type(i).location(j). airstat. prrc); 
pu txy ( 28, 7 , u .a r .ac_type( i ) . loca t ion ( j ) .ai rs tat .nmc) ; 



II u. ar.ac_type( i ). loca t ion' j '. crewstat .d elet e THIN 
putxy (5275 ,d_rrark ) ; 

ilHIF u.ar.<ic_type(i) .locdtion(j) .crews tat. change 

TEIN 

putxy (52 ,5 , star ) ; 

IF u .ar .ac_type ( i ) . locd ti on ( i ) . 

crewstat .airpn . change THIN 

putxy C 54,5,a_rr’ark) ; 

INE if; 

INI if; 

putxy(50,7, 

u.ar.dc_type(i).location(J) .crewstat.fcrxed) ; 
putxy ( €2,7, 

u.ar.ac_type(i) .location(J) .crewstat. ready) ; 



f ill_recon ; 

INE f ill_status_nras>; 

PROCIEUPI prccess_recon (i ndex ,x ,y : IN INTEGIR) IS 
— processes a single recon set 

USE io; — Open , CLOSE, GET LINE 

USE strlib; — Extract, PosI tion,Char_to_Str .Int_to_St r 
EEGIN 

g6txy_i[trrediate(x,y,key ) ; 

CASE key IS 

ViEFN no_input => 

null; 

'liHEN space => — delete set rrove othe.^s up 
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FCH k IN indf-i . .rrdx_ recon-1 LOOP 
u.ar.ac_i:ype(l) .locatioa(j ) . 

recon. capabiiityik) := 
u .ar .ac_i;ype( i ) .locaticn(J) . 

recon. capability (k+1) ; 

INI LOO?; 

u.ar.ac_type{i).location(j). 

recon .capability (rrax_recon ) := null_string; 
u,ar.ac_type(i).location(J) . 

recon. change := THUI; 
IF u.ar,ac_type(i).location(j) . 

recon. mjmber_of_capaoillties > 0 TEIN 
u.ar.fiC_type( i) .lccation( j) . 

recon. nurrber_of_capa bill ties : = 
u.ar.ac_type(i) .iocation(j )T 

recon. nutnber_of_capabiii ties - i; 

FNE if; 

fill_reccn; 

V.HIN CTHFP.S => — add new recon to the set 

IF n . ar .ac_type(i ). location ( J ) . 

recon .nuirber_of_capabilit ies >= r’ai_reccn THIN 
error(40); — rrax sets, delete first then add 
FLSF 

FOR k IN rIVFESI index + 1 . . pra x_rec cn LOOP 
u.ar.ac_type(i) .location(j). 

recon. capability(k) ; = 
u .ar .dc_.type( i) .locaticn(j) . 

recon. capabllity(k-l) ; 

ENE loop; 

u.ar .ac_type( i) .lccaticn(j). 

recon. capability ( index ) := null_string; 

fill_recon; 

buffer := Char_to _S tr ( key ) ; 
put.^y^ x,y, buf fer) ; 
getxy (x+1 ,y ,f ile_buffer,7) ; 
buffer := buffer & file_buffer; 

Open ( f y le , 'TABLE . E-3 , ?ead_ On ly ) ; 

ICC? 

file_buffer := OET_LINE( fyle) ; 
f i ie_buf f er : = 

Extract (file_ buffer,!, 

Position' ,file_b uf fer ) -1) ; 
I? file_buffer = buffer TEEN 
CLOSF(fyle) ; 

u. ar .ac_type( i ) .location ( j ) . 

recon. change := T?.US; 
u.ar.ac_type(i) .location(J) . 

recon .capability(index) := buffer; 
u.ar.ac_type(i) .locction(j). 

recon . nurr ber_of capabilities : = 
u.ar.ac_type( i) .location ( jj . 
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recon . nurr'cer_of capabilities + i; 

EXIT; 

END if; 

IF lNE_CF_FIL5(fyle) I'EFN 
CLOSE{fyle) ; 

error(41);^_ --- invalid recon capability 

putxy(i,y,” ——■■); 

exit; 

END if; 

END loop; 

ENI if; 

END case; 

— clean up null strings due to 

— faulty entries/deletions 
FOB k IN l..rax_rsccn LOOP 

IF u.ar.ac_type(i).location(j) . 

recon .capability (k) = null_string THEN 
FOB 1 IN k. .n’dX_recon-l LOOP 
u.ar.ac_type(i}.location(j). 

recon .capability( 1) : = 

u.ar.ac_type{i) .location (jK 

recon . capa bl li ty ( 1+1 ) ; 

END LCCP; 

u.ar.dc_type(i ) .Iccar. ion(j) . 

recon. capability frraz_recon ) := null string; 

END if; 

END loop; 

ENI process_reccn ; 



BEGIN 

rrodify_status : LOOP 
fill status irask; 



check_locdt ion : LOOP 
putxy (32 ,3 ,bla nk ) ; 
getzy _inTiiediat e ( 32 , 3 ,ke v ) ; 

CASE key IS 

VEEN no_input I space => 

EXIT check_lcca ticn ; 

VEEN d => 

IF u.ar .ac_type(i ) .locationC j ) .change OB 
u.ar.ac_type(i).locdtion(j). 

airsta t. change OB 
u.ar.ac_type(l).location(j). 

c rews ta t . change OH 
u.ar .ac_ typed ).location(j). 

recon. change THEN 

error(35); -- changed, can't delete 

ELSE 

u.ar. ac_type( i) . loca tion( j ) .delet e ;= TBUE; 
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u .dr .dc_type( i ) .locati on ( j ) . 

airstat. delete TRUI; 

u .ar .ac_type( i ) .local lonC j ) . 

crewstdt .delete := TRUE; 
u . ar . ac_type( i).location(j). 

recon. delete TRUE; 

putiy (35 ,3 , d_rra ric ) ; 
putzy( ie,5,d_irark) ; 
putxy (52,5, d_ma rk ) ; 
putxy (12 ,S, d_iTdrk ) ; 

SNI ie; 

WHEN r => 

IF u .ar .ac_ type ( i ). local ion ( j ). dele te OH 
u.ar.ac_type(i ).location(j ). 

alrstat.celete CR 
u.ar.ac_type(i J .locdtion(J ). 

crewstat. delete OR 
u.ar.ac_type(i) .locdtion(j) . 

recon. celete TEEN 

u . d r .ac_type( i ) . Iccd ti on ( J ) .lelet 6 := FALS.t; 
u .ar.ac_type(i) .location(j ) . 

ai rsta t .delete := -ALSi; 
u .ar .dc_type( i ) . local i on ( J ) . 

c rew 5 ta t .d el et e RAISE; 
u.ar.ac_type( i) .location(j) . 

putxy(35,3,blank) J 
p’dtxy(10 ,5, blank) ; 
putxy (52 ,5 , tl ank ) ; 
putiy (12,9, blank) ; 

ELSE 

error(34); 

ENi if; 

VEEN cues => 

belpC'lCCATICN" ); 
fill status_irask; 

WHEN CTHERS => 
error ( e) ; 

ENT case; 

ENE LOC? check_l oca ti on ; 

trodl fy_ai rs tat : lOOP 
putiy (7,5 , blank ) ; 
getxy_imredidte(7,5,key) ; 

CASE key IS 

VEEN no_input i space =1 
EXIT trodlfy_airstat ; 

WHEN c => 

IE u, ar . ac_type ( i ) . loca ti on ( j ) . 

dirstat. delete THEN 



recon. delete FALSE 



not deleted 



incorrect input 
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-- cant irodlfy deleted 



error (31 ) ; 

ELSE 
LOOP 

buffer := getiy digi ts (5 , 7,2 ) ; 

EXIT WHEN buffer = null_string; 
u .ar .ac_type( i) .ioca ti on ( j ) . 

airstat .possess ed := buffer; 
u.ar.ac_type(i ) .locatlon( j) . 

ai rsta t .change := TRUE; 

putxy( 10 , 5, star ) ; 

u.ar .ac_type( i ) .loca ti on ( 1 ) .change :=TRUE; 

exit; 

ENL loop; 

putxy(S,7,u.ar.ac_type(i ) .location (j) . 

airstat .possessed) ; 

LOOP 

buffer := getxy_digi ts ( 16 ,7 ,2 ) ; 

EXIT WEEN buffer = null_string; 
u.ar.ac_type(i) .location(j). 

ai rstat .fftc := ouffer; 
u . ar .ac_type( i ) .1 oca ti on ( j ) . 

airstat .change := TRUE; 

putxy (10,5, star) ; 

u.ar. ac_tyoe (i).locatlon(jK cha nee :=TRUE; 

exit; 

ENL loop; 

putiy(16,7,u.ar.ac_type(i).location(J). 

airstat .f.nc) ; 

LOOP 

buffer := getj:y_dieits (22 ,7 ,2 } ; 

EXIT WEEN buffer = null_ string; 
u .ar .ac_type( i ) .locat ion ( j ) . 

airstat.prrc := buffer; 
u.ar.ac_type(i) .locatlon(J). 

airstat .change := TP.UE; 

putxy ( 10 , 5 , star ) ; 

u .ar .ac_tyoe(i ) .location ( j ) .change : = T?JJE; 

exit; 

END loop; 

putxy(22,7,u.ar.ac_type(i) .locaticn(j) . 

ai rsta t. prrc) ; 

LOOP 

buffer := get xy_digi t s ( 28 , ? , 2 ) ; 

EXIT WEEN buffer = null_string; 
u.ar.ac_type(i) .location(j) . 

airstat. nrc := ouffer; 
u.ar .ac_type( i).location(j). 

airstat .change := TRUE; 

putxy( 10 , 5 , sta r ) ; 

u.ar.ac_tyne(i) .location(j) .change : = THUE; 

exit; 
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END loop; 

putxy( 28, 7, u. car .ac_iype ( 1 ) . loca t ion ( j ) . 

ai rsta i . nrrc) ; 

IE’Str_to_Int(u.ar.ac_type(i).locailon(J). 

airstdt . po ssessed) /= 
Str_to_Int(u.ar.ac_type(i).location(j). 

airstai . fmc) + 
Str_io_Int(u.ar.ac_type(i) .locaticn(j) . 

a ir sta t .pirc) + 
Sir_to_Inl(u.ar.ac_type(l).locatlon(j). 

airsiat .nrrc ) TEEN 

error(38); 

— possessd/f-Tic .nmc .nrrc don'i sum 

END if; 

INL if; 

VEEN a => 

IF u.ar.ac_type(i) .location( j) .airstat. change 

TEEN 

process_cotrirent ( " AIRSTa'‘& Ini to_Sir(i) & 

Inl_lo_Sir ( jT , 

u.ar.ac_type(i).location(j).airstai.arrpn); 
f ill_sta ius_mask; 

ELSE 

error(27); , — not changed 

END if; 

WEEN d => 

IF u.ar.ac typed ). location( j ) .airstai. change 

TEEN 

error(3h); — set rrodif ied/can 't change 

ELSE 

u.ar.ac_type(l) .location(j). 

alrsta t .delete := TRUE; 

putxy (10 ,5 ,d_rrarlc ) ; 

— also delete recon 

IF u.ar.ac_type(i) .location(J). 

recon .nurrber_of_capahlli ties > 0 
TEEN u.ar.ac_type(i ) . location (J ). 

recon. delete := TRUE; 

nutxy(12,9,d_rrark); 

END if; 

EKE if; 

WEEN r => 

IF u.ar.ac_type(i) . loc at lon(j)-^i”S tat. delete 

THEN 

u.ar.ac_type(i) .location(J) . 

ai rsta t .delete := FALSE; 

put xy ( 10 ,5 , hi ank ) ; 

ELSE 

error(34); — not deleted/can ' t restore 
E NE I F ; 

VEIN cues => 
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m: 










helpC'AIHSTAT") ; 
fill status_trask; 

WFIN OTHERS => 

errop(6); — in correct input 

I ME case; 

iNE LOOP rro<iify_alrstat ; 

irodi fy_crewsttit : LOOP 
putj:y(49,5,blank) ; 
get.xy_i!rmedlate(4S,5,key) ; 

CASE key IS 

WHEN no_input 1 space => 

EXIT modi fy_c rewsta t ; 

WHEN c => 

IF u.ar.ac type ( i ). locat ior. ( j ). crews ta t . delete 

TEEN 

errorfSl); — cant modify deleted 

ELSE 
LOOP 

buffer := getxy_digi ts (50 ,7 ,2 ) ; 

EXIT WEEN buffer = null_string; 
u.ar.ac_type( i) .location(J). 

crewstat . formed ;= buffer; 
u.ar .ac_type(i) ,location( j ) . 

crewstat. change := TRUE; 

putiy ( 52 , 5 , star } ; 

u . ar .ac_tyt)e( 1 ) .location( j) .change :=T?.UE; 
EXIT; 

ENE loop; 

putiy (50 ,7,u.ar .ac_type( i ) .location ( J ) . 

crewstat . formed) ; 

LOOP 

buffer := getxy _digi t s( 62 ,7 ,2 ) ; 

EXIT WEEN buffer = null_string; 
u.ar.ac_type(i) .location(j) . 

crewstat .ready := buffer; 
u.ar.ac_type(i) .locaticn(j). 

crew St a t . chan ge := TRUE; 

putxy (52, 5, star ) ; 

u. a r .ac_type( i ) .location ( j ) .change :=TRUE; 

exit; 

ENE loop; 

putxy(62,7,u.ar.ac_type(i) . location( j) . 

crewstat . ready ) ; 

IE Str_to_INT(u.ar.ac_type(i) .location(J) . 

crews ta t . fo rmed ) < 
Str_to_Int(u.ar.ac_type(i) .location(J) . 

cr ewstat . ready ) TEEN 
error(39); — crews ready > crews formed 
ENE if; 

ENE if; 
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WHIN a => 

IF u.dr.ac_type(l).locaiion(j). 

^^crewsta X . change TEZN 

process_comir,enX ( "CRV.'STa" S. In t_ to_S tr( 1 ) & 
Int_to_Sxr(j) ,u.d]’.ac_type(i) .locaticn(j) . 

cr ewsxat . airpn ) ; 

f ill_staxus_:Tiask; 

FLSS 

error(27); — no set to crrplify 

INI if; 

WHEN i => 

IF u.ar.ac_tyn8(i).103ation(j).crewstat. change 

THEN 

error (35 ) ; 

USE 

u.ar.ac_,type(i) .lccation(j). 

crewstat. delete := TRUE; 

putxy(52,5,d_jark); 

INI if; 

IvEE^ r => 

IF \i.ar.aG_type(i ) . location( j ) . 

crewstat .delete TEEN 
u.ar.ac_type( i) .location(j^ . 

crewstat .delete := FALSE; 
putxy (52 .5 , hi a.ik ) ; • 

ELSE 

error(34); --not deleted/can 't restore 

SNL if; 

WEEN ones => 

helpC’CREwSTAT" ), 
fili_status_""ask; 

WEEN OTHERS => 

error(6); — incorrect inout 

ENT case; 

EM LOOP modi f y_crews ta t ; 

mod ify_recon : LOG? 
putxy (9 ,9 , blank ) ; 
getiy_imrredidte (9 .9 ..-cey ) ; 

CASE key IS 

WEEN no_input ! space => 

EXIT modify _r econ ; 

WEEN c => 

IF u. ar . ac_ type ( i ) . location( j ) .recon.delete 

TEEN 

error(31); -- cant modify deleted 

ELSE 

pntxy( 12,9. star) ; 
blank_inst_dred ; 

nutxy(8,15,"FCR RECCN CFANGIS . . . ” } ; .. 

pntxy (8 .16, "<ENTEH> - go to next item 
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- erase this iteir" ) ; 



putiy(8, 17, "space 
putzy(8,18, 

dll others - add item at this locaticn"); 
process_recon(l ,S4,9) ; 

FOR k IN 2.. 6 LOOP 

process_recon(k,10+(k-2)=*'ll ,11) ; 

FNE loop; 

FOR k IN 7..11 LOOP 

process_r econ (k , 10+ (k-7 ) ^^‘ll ,12) ; 

ENE loop; 

FNE if; 

VEIN d => 

IF u. ar . ac_tytie (i ). location( j ). re cc n. change 

TEEN 

process_comment ( "RZC CN" & lni_ tc_S tr i i ) & 
Int_to_Str(j) ,u.ar.ac_type(i) .loca';ion(j) . 

recon. ampn) ; 

fill_status_mask; 

ELSE 

error (27); — set not changed/can 't am-Dlify 
ENE if; 

WHEN d => 

IF u.ar.ac tyt)e (i ) . iocat ion ( j ) . reco n. c nange 

TEEN 

errcr(35); -- cant delete modified set 

ELSE 

u.ar.ac_type( i) . location (J • . 

recon . dele te ;= TRUE; 

pdtxy(12,9,d_rraric) ; 

ENL if; 

WEEN r => 

IF u.ar.ac tyoe (1 ) .locati on( i) . rccon. delete 

THEN 

u.ar.ac_type(i) .location{j) . 

recon. delete ;= FALSE; 

outzy (12,9, blank) ; 

ELSE 

error(34); — not deleted/oant restore 

ENE if; 

VEEN ques => 
helpC'RECON;;) ; 
vi ew_tdble ( " table . E- 3 ); 
f ill_status_mask; 

WEEN OTHERS => 

error(6); — invalid input 

ENE case; 

END LOOP rrodify_recon ; 
bldnk_inst_ared ; 

IF u . ar .ac_type( 1 ) . lo ca ticn( j ^ . dele te CP. 

u. a r.ac_type( i) .location(j) .airstat. delete OR 
u.dr.ac_typeU).locdtion(j) .c re wstat. delete OR 
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u.ar.ac_tyT)e(l ) .location (J ) .recon. delete TFIN 
FUT(l)ell);‘ 

putzy ( 13 ,16, "Data is to be deleted . ^ insure " £. 

^^"that the corresponding"); 
putzy(8,17,"data items are adjusted in another" & 
"^STATUS dislay. (if reo.uir ed ) " ) j 
putzy (30 , 19, "<ENTEP.> to Continue "); 
getiy immediat e ( 62 ,19 ,key ) ; 

5M if; 

tlank_inst_ar ea; 

putzy ( 0 ,17, ”<ENTER> to Continue, Enter <X) to " & 
"deselect ; " ) ; 
reselect := markH^,!?); 

EXIT modify_s tatus WEEN NCT reselect; 

ENI ICO? rrodify_status; 

END process_status; 

EM urair3; 
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WITH io, 

printlo , 
urgitl , 

•urglobal , 
urlocalA , 
uni trepA; 

PACKAGI iCIY initlalA 
USE io, 

print io , 
urgltl , 
urgloPal , 
urlocalA , 
unitrepA; 

— This package is used to form; 

— the initial workfile (DNIT000A), 

— elements of the local data structure 

— the initial program status file (STATUS), 

— and the initial cross reference file (CROSSP.ZF). 
— When urtest is incorporated the test file 

— TIST000 is also formed. 

— The INITIALA .COI^ file resulting from this 

— package should net ce distributed to all users. 

— Cnly those organizations required to set the 

— UNIT000A, STATUS and CROSSREF external files 

— should have access to this code. 

— UNIT000A, STATUS and C30SSREF files are added 

— to the originaing units UNITREP f^ASTFR DISK after 

— initialization has been performed. 



— JANUS/J^DA Library 



IS 

— Open , CLOSE, lElETE 



fyle: PILE; 

serial_dtg: STRING(16); 
— # test number: INTEGER* 



EEGIN 

— a 
— a 
— # 

— # 

— a 
— # 

— # 

— a 
— # 



- initialize test data - sets A:TEST000 to 0 
rELETE("TEST000'‘ ); 

PUT( "Creating new TEST000 . . . " ) ; NEV_LINE; 
Created fyle ."TEST000" .Write Only); 

Cp en ( f yl e,"TFST000", Write. Only ) ; 
test_numter := 0; 

PUT(fyle .test .number); 

CICSE(fyle); 

FUTC’Put of 0 to TEST000 complete... " ); 

NEW line; new line; 
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~~ initialize the prograir status 
prograrr .unit := ship; 
prcgratr .initial_entry := TRUE; 
progratr .print_trailer := lALSi; 
prograir .message transmitted := FALSE; 

FOR i IN action"RANGE draft.. quit LOOP 
program. current _act io n ( i ) := FALSE; 

EM lccf; 

FOR i IN areas RANGE pens.. local LOOP 
urogram .current_area ( i ) := FALSE; 

ENi loop; 

FOR i IN format RANGE msg..text LOOP 
program .current_forma t ( i ) := FALSE; 

ENI loop; 

program .print ing_line := i; 
urogram .workfile := "UNITeoo"; 
i)ELETE( ’‘STATUS" ) ; 

Create(fyle, " status” , W rite_Cnly ) ; 

Wri te ^ f yle .program ) ; 

CLOSE(fyle); 

?UT('^:ite to STATUS complete...'); 

NE'*’_LINI; new_line; 

— ' iniMalize UNITO00 
u.l. change := FALSE; 
u. i. status .transmitted := FALSE; 
u .1 . status .last_serial := ”000"; 
u . 1 . s ta tus . f eeder_repor t := FALSI; 
u .1 . status .uni t_id 

u ,1 . st.jtus .current_serial := ’00l"; 
u. 1 . s ta tus . ampn. change := FALSE; 
u . 1 .status .ampn .numher_of_iines := 0; 

u.l .message. precedence := priority; 
u. 1 .message. dtg := 

u. 1 .me s sage . 0 riginator_address := ””; 

u. 1. message. classification := confidential; 

u . 1 .message. declassification := 

u. 1 . opera ti on .underway := FAISE; 
u. 1 . ope ra ti on .codeword ;= " ; 
u .1 .operation .plan_org_number := ; 

u. 1 . exerci se.und erway := FALSE; 
u . 1 . exerci se .nickname := ””; 

u.l .position. change := EALSE; 
u. 1 . posit ion. lat _long := EALSE; 
u.l .position .preseat^locdtion := ' 
u. 1. position. dtg := "; 

u.l .position. ampn .change := FALSE; 
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u .1 .position. afrpn.niiirber_of_lines := 0 

u . 1 . rer-arks . change FALSE; 
u. 1 . rerrarks.nrrrber_of_pages := 0; 

FOB i 1 . .iras_rrrks page s LCCF 

u. 1 . rerrarks .pa^et' i") . cbc nge := FALSI; 
u.L .remarks .page(i ) . numbe r_of _li ne s 
INE lccf; 



EELETirUN'IT02e.A” ) ; 

Great e ( fyle, "UNIT000A" ,Wri te_Cnly ) ; 
Open ( fyLe , " uni T 000A' , Writ e_ Only ) ; 
Write (fy le,n ) ; 

CLOSE(fyle) ; 

PUT{"Write to UNIT000A Complete..."); 

niw_iim; nfw_linf; 

— set up the cross reference file 
serial dtg ;= "000 ddhhmm ZMf^l^yy " ; 
LFIFU^ "cpcspi?" ) ; 

Create! fy le , " CP.OSSRI?" , 'ftrite_Cnly) ; 
PUT (fyle, seri«l_dig) ; M^f_LINI(fyle) ; 
CLOSi(fyle); 

PUTf"PUT to CROSSEFF Complete..."); 
NIW_1IM; MW..II 1 VI; 

NT InitialA; 
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loITH io, -- JANUS/APA Library 

urglbl, 
uradirl nE , 
urai rB , 
uni trepB; 

PACIAGI ICIY initialB IS 

USE io; 

USE urglti; 

USE urairE; 

USE uradirinB; 

USE unitrepE; 

— initialize the 'E' data structure 

two0: STEING; 

fyle; FILE; 

PROCEBUEE zero lo cat ion ( i , j : IN INTEGER) IS 
BEGIN 

-- zero location set (i,.0 
u. ar. ac_type ( i ). locat ion( J ) .change := FALSE; 
u. a r .ac_tyt3e( i ) . locat ion ( j ) . dele te := EAISZ; 

IE ,i = 1 TEEN 

-- present position 
u.ar.ac type( i ) . location( j) .i ss := 

ELSE 

u . a r .ac_type ( i ) . locat ion ( J ) . iss ;= ; 

ENI ie; 

u.ar.ac_type( 1) . locat ionf j) .airstat .change := FALSE; 
u . ar .ac_type( i ) . Iccat ion ( j ) .di rs tat .del et e := FALSE; 
u. a r . ac_ type ( i ) . Icca t ion ( j K di rs t at .pos s ess ed := t>»o0 
u .a r .ac_type( 1 ). locat icn{ j) . di rs tdt . fire := two?; 
u.ar.ac_type(i).location(j).airst?t.prrc := two?; 
u .a r .ac_type( i ) . locat ion ( j ) .ai rstat . nmc := two?; 
u.ar .ac_type(i ) .location( j) . 

ai rstat .airpn .change := FALSE 
u.ar.ac_type(i).location(j) . 

airstat .a.Tipn .nurrber_of_lines := ? 
u . ar . ac_ type ( i ). loca t ion ( j ) .crewst dt . change := FALSE; 
u. ar . ac~type( i ). locat ion ( j ) .crews td t .dele te := FALSE; 
u.ar.ac_type( i) . location{ j) .crewstat . formed := two?; 
u.ar .ac_type(i ) .location(j ) .crewstdt .ready := two?; 
u.ar. ac_ type( i).location(j) . 

c rewstat .a.Tpn .cha rge := FALSE 
u.ar.ac_type(i).location(j) . 

crewstat.arrpn. nurrber_of_lines := ? 
u.ar .ac_type( i) . location( J ) .recon .change := FALSE; 
u . ar . ac_type ( i ) . 1 oca t ion ( j ) . reco n .del et e := FALSE; 
u. a r . ac_type( i ). locat ion( j ) .recon. 

nutTber_of_capabil ities := ? 
u.ar.ac_type(i) .location(J). 

rec on . airpn . change := FALSE 
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u .ar .ac_type (i ) .loca t ion{ J ) . 

recon .ampn . number_of_ilne 3 2 
JOB z IN 1 . .trax_recon LOOP 
u . ar. ac_type ( 1 ) . loca tio n ( J ) . 

recon .caoabllity(2 ) : = 

INE ICCP? 

INE zero location; 



PHOCIEURE zero_aC_type( i : IN INTEGER) IS 
BEGIN 

— zero out all iterrs 
u.ar.ac_type( i) .change := EALSE; 
u .ar .ac_type (i ) .delete := EALSE; 
u. a r . ac_type( i ) . iss := 

u . ar .ac_type ( 1 ) . ac_auth .cha nge := EALSE; 
u .ar .dc_type ( i ) .ac_duth .del ete ;= FALSE; 
u. ar. ac_type( i ) .ac_auth. i ss := twoZ; 
u.ar.ac_type(i ) .ac_auth.dFpn .change := FALSE; 
u .a r .ac_type (i ) .ac_au th .arrpn. nutr>ber_of_li nes := o; 
u . ar . ac_type( 1 ). crews_auth . change := FALSE; 
u.ar .ac_type(l ) .crews_auth. delete := FALSE; 
u.ar .ac_type( i ) .crews_auth .1 ss := t’«o0; 
u. a r .ac_type( i ). crews_aut h .drpn . change := FALSE; 
u. ar . ac_type( i ) . crews_auth. arrpn. nuiT ber_of. 1 ines := ?> 
u.ar.ac_type( i) .nun'ber_of_locations := i; — hornepiat 
ECH J IN 1 . .irax_locdtions LCCP 
zero_locatlon( 1 , j ) ; 

ENE ICOP; 

ENE zero_ac_type ; 



BEGIN 

two 0 := "00"; 

— initialize UNIT 000 B 

— adTin sets 
u. ad. change := FALSE; 

u. ad. comr.and. change : = ,,EALSE; 
u .ad .coirrrtdnd .cooic : = ; 

u.ad.corrirand.dtg := " ; 
u .ad . corrmand .ampn . change := FALSE; 
u . ad . conrrand . dirpn . nurrber_of _1 ine s := 0; 

u. ad. activ. change := FALSE; 
u .ad.activ.activity_code ;= CP ; 
u. ad .ac tiv .airpn. change := FALSE; 
u . ad . dct i 7 .arrpn .nurrber_of _1 ines := 0; 
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u .ad .iredlc .change := FALSI; 
u. ad. tredic. status := onboard; 
u .ad .rredl c .dtrpn .change := FALSI; 
u.ad.iredlc.arrpn.nurrber_of_llnes := 0; 

u. ad. reporg. change := FALSI; 
u.ad.reporg.new_rep^org := cno; 
u. ad. reporg. dtg := ; 

u. ad .reporg. arrpn .change := FALSE; 
u .ad . reporg .dirpn . nurrber_of_l ines := 2 ] 

u. ad .verify .change := FALSI; 
u . ad . verify . feedbdcfc_ver := vdid; 
u. ad .verify .airpn. change := FALSE; 
c . ad . verify . arrpn . number_o f_li ne s := 0> 

-- dir sets 
u.ar. change := FALSE; 
u .ar .nutrber_of_ac_types := ?; 

FOR i IN 1 . .ii’cix_ac_types LCCP 
zero ac_tyne(i); 

INI loop; 



DILITI(’‘UNIT000B"); 

Crsate( fyle ,‘’UNIT000B'‘ , >ir it e_ Cnly ) ; 
Open(fyle, ”UNIT000S",Write_Only) ; 
Write(fyle,u) ; 

CLQSI(fyle) ; 

PUTC'’#rite to UNIT0003 Cotrple te . . . ' ) ; 
NEW_LINi; NIW_LINi; 

END initials; 
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